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Subject: Preliainary Release of . Date: 6/20/72 
UNIX Implementation Document 


"The contents of this document are incomplete and subject to rapid 
chenge both in subject matzer end organization. The purpose of this 

.relesse is to make the information it contains available to persons 
who have an immediete and pressing need. The sections that are 
included here contain the following information: 


Section Contents. 
E.0 - E.10 Commented Tisting of UNIX operating 
. system 
E.1l ‘Commented listing of UNIX shell 
E.12 : Commented listing of UNIX 
initialization progran 
F System Overview 
G Data Base Item Descriptions 
E,0 - H,9 Verbal descriptions of UNIX 


routines. 











2e verbal Gesoristio ln Section B.C o. BU COTDOSEOSHQ bs ER 
listings in 2.0 - E.Q. However, the routines sre listed in al phebeti 
order in the E sections, rather th in the order tbev arrear in the 
listings. -> 


(da DeFelice 


cal 


modifications to UNIX to accomcdate the T4002A graphic console 


uo Page 1 
gks = 177 
gkb = 177 
gps = 177 
gpb = 177 
uo Page 2 


add 


-=-= / graphic input status 
--- / graphic input buffer 

/ graphic output status 
-—- / graphic output buffer 


add somewhere 


dspi; 240 / graphic input interrupt vector 


uo Page 


3 


add at end of "set up time out routines" 


mov $ wakdsp, (r0) / time out subroutine for display 


uo Pago 


4 


add at end of device directory 


23. 
<dsp\0\o\o\o> / TA002A 


u7 Page 4,5 


add to end of iopen list 


odso / T4002A 


add program odsp below 


odsp: / open T4002A for reading or writing 


mov 
mov 
jsr 
mov 
jsr 
mov 
jsr 
br 


$100,*$gks / set interrupt enable on input 
$14,r1 / put np in ri (erase, home) 
r0,chout / output the char 

$21,r1 / put dei in ri (turn on joystock) 
r0,chout / output char 

$37,r1 / put us in rt (alpha mode) 
rO,chout / output char 


sret 


/Note; a graphic block and buffer like the tty’s are not used. May 
need them when more than 1 disply is added, 


u6 Page 


4 


add at end of readi list 


rdsp / T4002A 


add the routine rdsp 


rdsp: / read from the graphics terminal 


mov 
jsr 


cir 
jsr 
br 


$240,*$0s / set ps to 5 

rO,getc; 22 / take char off clist and put it in r1 
br 1f / list is empty, go to sleep 

*sps / clear ps 

rO,passc / move char to user core 

rdsp / get next char 


mov r5,-(sp) / save r5 
jsr r0,sleep; 22 / put input process to sleep 
mov (sp)+,r5 / restore r5 
br . rdsp / try again 
¿add somewhere dspi* 
Suis mien RI 
dspi: / graphic display input interrupt routine 
jsr r0,setisp / save r1, r2, r3 
mov *$gkb,r1 / put char in r1 
inc *s,gks / set reader enable bit 
bic $1177,r1 / strip char to 7 bits 
jsr rO,putc; 22 / put char on the clist 
br 1f / if full return 
/Note: char is not echoed and quit 
(fs) and interrupt (del) char are 


/ not processed 
cmp r1,$4 / char = eot 
beq 1£ 
cmp r1,$12 / char = 1f 
beg 1f 
cmpb | cc*22,515 / are there less than 15 char on the clist? 
blo retisp / yes, return 

1:  jsr rO,wakeup;runq; 22 / wakeup the process that's inputting 

br retisp / return 
u6 Page 3 add to bottom of writei list 


wdsp / T4002A 


(add routines wdsp, chout, and wakdsp i 


/ write routine for the T4002A graphics console 
/a character at a time is taken out of the graphic 
/ instruction buffer and sent over to the T4002A 


wdsp: / write on the graphic display 
jsr rO,cpass / set next char from user buffer area 
/ if none, return to syswrite 
tst ri / is the character null 
beq wdsp / yes, get the next character 
jsr rO,chout / output the character 
br wdsp / get next character 


chout: / do the actual output of the character 
tstb | *$gps / check for output ready 
bge chout / wait for ready 

1: 
tstb toutt+12 / check time out 
bne 1b / wait for it to be O 
movb ri,*$gpb / output the character 
cmpb  r1,$14 / is char ff (erase, home?) 


beq 1£ e $ 
cmpb  r1,$30 / is char can (erase)? 
bea 1f 


cmpb 11,$5 / is char enq (digitize joystock)? 


beq 2f 


rts r0 

13 
movb  $30,toutt+12 / put 500 ms delay for erase 
jsr r0,sleep; 23 / put output process to sleep 
rts ro . 


movb $2,toutt+12 / put in 20 ms delay for joystick 
rts ro 


/ time out subroutine for display 
wakdsp: / wakeup the output process 


jsr rO, wakeup; runq+2; 23 
rts ro 


UNIX IMPLEMENTATION 


/ u0 — unix 


cold = 0 À 
orig = 0 + / orig = 0. relocatable 
rkda = 177412 / disk address reg rk03/rk11 
rkds = 177400 / driv status reg rk03/rk11 
rkcs = 177404 / control status reg rk03/rk11 
rcsr = 174000 / receiver status reg dc-11 
rcbr - 174002 / receiver buffer reg dc-11 
tcsr = 174004 / xmtr status reg dc-11 
tcbr = 174006 / xmtr buffer reg dc-11 
test = 177340 / dec tape control status tc11/tu56 
tccm = 177342 / dec tape command reg tc11/tu56 
tcwc = 177344 / word count tc11/tu56 
tcba = 177346 / bus addr tc11/tu56 
tedt = 177350 / data reg tc11/tu56 
dcs = 177460 / drum control status rf11/rs11 
dae = 177470 / drum address extension rf11/rs11 
lks = 177546 / clock status reg kw11-1 
prs = 177550 / papertape reader status pc11 
prb = 177552 / buffer pc11 
pps = 177554 / punch status pc11 
ppb = 177556 / punch buffer pc11 
/ips = 177514 line printer status (future) 
/lpb = 177516 line printer buffer (future) 
tks = 177560 / console read status asr-33 
tkb = 177562 / read buffer | asr-33 
tps = 177564 / punch status asr-33 
tpb = 177566 / punch buffer asr-33 
ps = 177776 / processor status 
halt = 0 
wait = 1 
rti z= 2 
nproc = 16. / number of processes 
nfiles = 50. 
ntty = 8+1 
nbuf = 6 
- eif cold / ignored if cold = 0 
nbuf = 2 

eendif 


core = orig+40000 / specifies beginning of user’s core 
ecore = core+20000 / specifies end of user's core (4096 words) 


/ “BL aa nit by copy 
/ 4.4 unkni;0 , bus error 
/ it fpsymjo  illg intr | 
14:15 unkni;O / trace and trap (see Sec. B.1 page ) 
10,j1unkni;O / trap 
iO / pwr 
2 "irtssym;O / emt 
M35 sysent;O / sys 
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e = Origt60 l 
60; .¡¿tty1;5240 / interrupt vector tty in - y processor level 5 
pet ttyo; 3240 / interrupt vector tty out 
20; tppti 3240 ^ punch papertape in 


JA; ^ ppto; 240 punch papertape out 
jn;elock;340 / clock interrupt vector ; processor level 7 
e = origt200 oh dr 
/ lpto; 240 line printer interrupt ; processor level 5 (future) 
e = Origt204 
drum;300 / drum interrupt ; processor level 6 
. = orig+214 


tape;300 / dec tape interrupt 
disk;300 / rk03 interrupt 

e = origt300 
Of4+trev; 240; O*4+txmt; 240 / dci1 input;output interrupt vectors 
1*4*trcv; 240; 1*4+txmt; 240 
2*4*trcv; 240; 2*4+txmt; 240 
3*4*trcv; 2403 3*4+txmt; 240 
4*4Ftrcv; 240; 4*4*txmt; 240 
5*4*trcv; 240; 5*4*txmt; 240 
6*4*trcv; 240; 6*4*txmt; 240 
7*4*trcvs 240; 7*4*txmt; 240 


e = origt400 i 
/ copy in transfer vectors 


mov $ecore,sp / put pointer to ecore in the stack pointer 
jer rO,copyz; 0; 14 / clear locations O to 14 in core 
mov $4,r0 

clr r1 l : 

mov r0,(r1)+ / put value of 4 into location 0 

mov r0,(r1)* / put value of 4 into location 2 


mov $unkni,(r1)+ / put value of unkni into location 4; 
/ time out, bus error 


clr (r1)+ / put value of O into location 6 
mov Sfpsym,(r1)+ / put value of fpsym into location 10 
elr (r1)+ / put value of O into location 12 


/ clear core 
eif cold / ignored if cold = 0 
halt / halt before initializing rf file system; user has 
/ last chance to reconsider 
eendif 


jer r0,copyz; systm; ecore / clear locations systm to ecore 
mov $sechrgt+2,clockp / intialize clockp 
/ allocate tty buffers; see H.O for description 
mov $buffer,rO 
mov $tty+6,r1 


mov rO,(r1) 

add $140. r0 / tty buffers are 140. bytes long 

add $8,r1 

cub ri ¡Stty+[ntey*8] / has a buffer been assigned for each tty 
O 1b 


/ allocate disk buffers; see H.O for description 
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mov 


mov 
add 
mov 


mov — 


add 
cmp 
blo 
mov 
mov 
mov 
mov 


mov 
mov 
mov 
mov 


UNIX IMPLEMENTATION 


$bufp,r1 


ro,(r1)- 

$8,r0 

r0,-2(r0) / bus address 

$-256.,-4(r0) / word count 

$512.,r0 / buffer space 

ri,$bufp*nbuftnbuf 

15 ` 

$sbO,(r1)* . / 1/0 queue entry drum 

$sb1 ,(11)+ / I/O queue entry disk (mounted device) 

$swp,(ri)* / I/O queue entry core image being swapped 

$[systm-inode]V/2,5b0*4 / sets ur initial buffers per 
/ format given in 

6systm,sb0+6 / memory map 

$-512.,8b1+4 

$mount , sb1 +6 

$user,swp*6 


/ set devices to interrupt 


mov 


$100,*$1ks / put 100 into clock status register; 
/ enables clock interrupt 


/ set up time out subroutines 


mov 
mov 
mov 
tst 
mov 
1: 
mov 
dec 
bne 


$touts,rO 
$startty,(rO)* / if toutt = O call startty 
épptito,(r0)* / if toutt+1 = O call pptito 


(r0)+ / add 2 to ro 
$ntty-1,r1 


$xmtto,(rO)* / if toutt+2 thru toutt+2+ntty=0 call xmtto 
ri 
1b 


/ free all character blocks; see H.0 for description 


mov 
mov 


jsr 
sub 


bgt 


$510 .,r2 
$-1,r1 


rO,put 
$2,r2 
1b 


/ set up drum swap addresses; see H.0 for description 


mov 


mov 
13 
sub 
mov 
cmp 
bne 


$1024.-64.,r1 / highest drum address; high 64 blks allocated 
|j / to UNIX l 
$p.dska,r2 / p.dska contains diskaddresses for processes 


$17.,r1 / 17 blocks per process 
r1,(r2)+ 
r2,5p.dska*nproc*nproc 

1b 
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/ free rest of drum 
eif cold 
mov $128.,systm / initialize word 1 of drum superblock image; 
/ number of bytes in free storage map=128. 
mov - d Ld / init. wd 66. of superblock image; # of 
/ bytes in i-node mapz64. 
13 : 
dec ri / r1:687.,...934. 
jer rO,free / free block ‘rt’, i.e., set bit *r1^ in free 
/ storage map in core | 
cmp r 1,934. / first drum address not in i list 
bgt 1b / if block 34 has been freed, zero i list 
/ zero i list 
1: 
dec rO / rO = 33.,...,1 
jsr rO,clear / zero block 'r1' on fixed head dis’ 
tst ri 
bgt 1b / if blocks 33,...,1 have all been zeroed, done. 
eendif 


/ make current program a user 


mov $41.,r0 / rootdir set to 41 and never changed 
mov rO,rootdir / rootdir is i-number of root directory 
mov r0yu.cdir / u.cdir is i-number of process current directory 
mov $1,r0 
movb rO,u.uno / set process table index for this process to 1 
mov rO,mpid / initialize mpid to 1 
mov rO,p.pid / p.pid identifies process 
movb  rO0,p.stat / process status = 1 i.e., active 
= O free 
«if cold / = 2 waiting for a child to die 
/ = 3 terminated but not yet waited 
/ ‘for 


/ initialize inodes for special files (inodes 1 to 40.) 


mov 
1: 
jsr 


mov 


movb 
movb 
jer 


dec 
bgt 


$40.,r1 / set rizi-node-number 40. 


rO,iget / read i-node 'r1' from disk into inode area of 
/ cerze and write modified inode out (if any) 


| $100017,i.flgs / set flags in core image of inode to indi- 


/ cate allocated, read (owner, non-owner), 
/ write (owner, non-owner) 

$1,1.nlks / set no. of links = 1 

$1,1.uid / set user id of owner = 1 

r0,setimod / set imod=i to indicate i-node modified, also 

/ stuff time of modification into i-node 
r1 / next i-node no. = present i-node no.-1 
1b / has i-node 1 been initialized; no, branch 


/ initialize i-nodes r1.,...,47. and write the root device, binary, etc., 
/ directories onto fixed head disk. user temporary, initialization prog. 
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mov $idata,rO / rOzbase addr. of assembled directories. 
mov $u.off,u.fofp / pointer to u.off in u.fofp (holds file 
/ offset) 


mov — (r0)+,11/r1=4107...,47; "o" in the assembled directory 
header signals last 
assembled directory has been written, onto drum 
locate the inode map bit for i-node ‘ri’ 
set the bit to indicate the i-node is not 
available 
read inode °r1’ from disk into inode area of 
core and write modified i-node on drum (if any) 
mov (r0)+,i.£lgs / set flags in core image of inode from 
/ assembled directories header 

movb (r0)+.i.nlks / set no. of links from header 
movb (r0)+,ieuid / set user id of owner from header 
jer rO,setimod / set imod=1 to indicate inode modified: also, 

/ stuff time of modification into i-node 


beq 1£ i 
jsr r0,imap 
bisb ma, (12) 


jer r0,iget 


ARN 


mov (r0)+,u.count / set byte count for write call equal to 
/ size of directory 
mov rO,u.base / set buffer address for Write to top of „directory 


clr u.off / clear file offset used in “seek” and “tell” 

add u.count,rO / rO points to the header of the next directory 
jsr rO,writei / write the directory and i-node onto drum 

br 1b / do next directory 

eendif 


/ next 2 instructions not executed ' during cold boot. 


13 
23 


panics 


e 
e 


bis $2000,sb0 / sbO I/O queue entry for superblock on drum; 
/ set bit 10 to 1 
jsr rO,ppoke / read drum superblock 


tstb  sb0*1 / has I/O request been honored (for drum)? 
bne 4b / no, continue to idle. 


decb sysflg / mormally sysflag=0, indicates executing in system 


sys exec; 2f; 1f / generates trap interrupt; trap vector = 
sysent; O 
br panic / execute file/etc/init 
(b 
2550 Mia [uff Aul om ES Sa 69,0 
DINOS / UNIX looks for strings — noted by nulo 
clr ps 
dec $0 
bne 1b 
dec $5 
bne 1b 


jmp #3173700 / rom loader address 
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rtssym: 


mov rO,-(sp) 
mov r1 ,-(sp) 
mov 4(sp),rO 
mov ~(r0),r0 
bic  $17,r0 
asl ro 


jmp *1£(r0) 
0£;1£;2£;3£;4£;5f;badrts;7£ 


mov 2(sp),ro 


br i£. 
2: 
mov r2,r1 
br 1f 
3: 
mov r3,r1 
br 1f 
43 
mov r4,r1 
br 1f 
5: 5 
mov r5,r1 
br 1£ 
mov 8.(sp),r1 
13 
cmp r1,$core 
blo badrts 
cip ri ,$ecore 
bhis badrts 
bit. $1,r1 
bne badrts 
tst (r1) 
beq badrts 
add $1£,r0 
mov r0,4(sp) 
mov (sp)+,r1 
mov (sp)+,r0 
rti l 
13 
rts ro 
rts ri 
rts r2 
rts r3 
rts r4 
rts r5 
rts sp 
rts pe 
badrts: 
mov (sp)*,r1 
mov (sp) *,rO 
rpsym: 
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jmp unkni 
eif cold 

idata: 

/ root 
41. 
140016 
byte 7 ,1 
9f-.-2 
41. 
€. «NONONONONONO> 
4%. 
ENS 
<dev\0\0\0\0\0> 
43. 
€binNONONONONO» 
ás. 
<etc\0\0\0\0\0> 
45. 
<usr\0\0\0\0\0> 


46. 
<tmp\o\o0\0\0\0> 
9: 


/ device directory 

42. 

140016: 

ebyte 2,1 

9f-.—2 

41. 

O 
<NONONONONONONO> 

01. 

REET NONONO VONT 

<ppt\o\0\0\0\0> 
<mem\0\0\0\0\0> 

04. 
<r£0\0\0\0\0\0> 

05. 
<rk0\0\0\0\0\0> 

06. 

SERE NONO ONO? 

07. 

<tap1 NONONONO» 

08. 
<tap2\0\0\0\0> 
9. 

<tap3\0\0\0\0> | 
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Ceap4\o\0\0\o> 
4 ApSNONONONO 
4t apeNONONONO 
<eap7\0\0\o\0> 
<ELyONONONONO> 
«EC 1NONONONO? 
4E Cy2NONONONO? 
CE Cy 2NONONONO? 
<ety4\0\0\0\0> 
4t CySNONONO NO? 
Zety6\0\0\0\0> 
<ety7\0\0\0\0> 
 IprNONONONONO 


01. 
€tty8NONONONO?. / really tty 


/ binary directory ` 


9: 


43. 
140016 
ebyte 2 9 3 
9f-.-—-2 


41. 
SANO 
<. NONONONONONONO? 


/ etcetra directory 


9: 


44. 

140016 

«byte 2,3 

9f-.-2 

41. 

<. e NONONONONONO? 
44. 

€, NONONONONONONO» 


47. 
XinitNONONONO? 
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/ user directory 
45. 
140016 
ebyte 2,1 
9f-.—2 
41. 
< + .NONONONONO VO? 


45. 
: €, NONONONONONONO? 


/ temporary directory 
46. 
140017 
ebyte 2,1 
If-.-2 
41. 
€. .NONONONONONO? 


46. 
A €,NONONONONONONO» 


/ initializatíon program 


47. 
100036 
ebyte 1 93 
9f-.-2 
8: 
sys break; O 
sys open; 6f-8btcore; O 
mov r0,r1 : 
sys seek; 653; O 
1: l ' 
mov r1,r0 
sys read; 9f-8btcore; 512. 
mov 9f,r5 / size 
beq 1£ 
sys creat; 9f-Sbtcoret4; O 
mov rO,r2 
movb 9f*2,0f 
sys chmod; 9f-8b+core+4; Ozee 
movb 9£+3,0f 
sys chown; 9f-Bb+core+4; Ose. 
23 
tst r5 
beq 2f - 
mov riro 
sys read; 9f-8btcore; 512. 
mov $512.,0f 
cmp r5,$512. 
bhi 3f 
mov r5,0f 
3: 
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mov r2,r0 
sys write; 9f-8bt*core; Ot.. 
sub rO,r5 
br 2b 
2: l 
mov r2 ,rO 
sys close 
br 1b 
1: 
mov riro 
sys close . 
sys exec; 5f-8b*core; 4f-8btcore 
sys exit 


:: n cpi: T o sic siiis d 
dE «éek/anitSo» da par as dex al s Z 
: </dev/tapoNo> of This cl om oll FT 


eeven 
9: 


/ end of initialization data 
0 
endif 
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/ ut — unix 


unkni: / used for all system calls 

sysent:; 
incb sysflg / indicate a system routine is 
beq 1£ / in progress 
jmp panic / called if trap inside vata" 


mov $s.syst+2,clockp 

mov r0,-(sp) / save user registers 

mov sp,u.rO / pointer to bottom of users stack in u.rO 
mov r1,-(sp 

mov r2,-(sp) 

mov r3,-(sp) 

mov r4,-(sp) 

mov r5,-(sp) Š - e 

mov ac,-(sp) accumulator register for extended 


/ 
/ arithmetic unit 

mov mq,-(sp) / "multiplier quotient" register for the 
/ extended arithmetic unit 
/ "step count register for the extended 

/ arithmetic unit 


mov sc,-(sp) 


mov sp,u.esp / u.sp points to top of users “stack 
mov 18. (sp), rO / store pc in rO 

mov -(r0),rO / sys inst in rO 10400xxx 

sub $sys,r0 / get xxx code 


asl r0 / multiply by 2 to jump indirect in bytes 
cmp r0,$2f-1f / limit of table (35) exceeded 
bhis badsys / yes, bad system call 
bic $341,20.(sp) / set users processor priority to 0 and clear 
/ carry bit 
jmp *1£(r0) / jump indirect thru table of addresses 
; to proper system routine. 
1: . i 
sysrele / O 
sysexit / 1 
sys ork / 2 
sysread / 3 
syswrite / 4 
sysopen / 5 
sysclose / 6 
syswait / 7 
syscreat / 8 
syslink / 9 
sysunlink 7 10 
sysexec / 11 
syschdir / 12 
systime / 13 
sysmkdir / 14 
syschmod / 
syschown / 16 
sysbreak / 
sysstat / 18 
sysseek / 19 
systell / 20 


Issue D Date 3/17/72 ID IMO.1-1. Section E.1 Page 1 


23 


error: 


sysret: 


sysrele: 


1: 
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sysmount / 2 
sysumount 52 
syssetuid / 2 
sysgetuid / 2: 
sysstime / 25 
sysquit / 26 
sysintr / 27 
sysfstat / 28 


sysemt 


/ 29 


sysmdate / 30 
sysstty / 31 
sysgtty / 32 
sysilgins / 33 


mov . 


bis 


tstb 
bne 
mov 
clr 
jer 


tstb 
beq 
clrb 
bis 


jsr 
tstb 
beq 
clrb 
movb 


bis 
jsr 


tstb 
bne 


jsr 


mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 


uesp,ri 
$1,20.(r1) / set e bit in processor status word below 
/ users stack 


uebsys / is a process about to be terminated because 

sysexit / of an error? yes, go to sysexit 

u.Sp,sp / no point stack to users stack 

ri / zero r1 to check last mentioned i-node 

rO,iget / if last mentioned i-node has been modified 
/ it is written out 

smod / has the super block been modified 

1f / no, 1f 

smod / yes, clear smod 

$1000,sbO / set write bit in I/O queue for super block 

./ output 
rO,ppoke / write out modified super block to disk 


mmod / has the super block for the dismountable file 
/ system 
1f / been modified? no, 1f 
mmod / yes, clear mmod 
mntd,sbi / set the I/O queue 
$1000, 8b1 / set write bit in I/O queue for detached sb 
rO,ppoke / write it out to its device 


uquant / is the time quantum 0? 
1f / no, don't swap it out 


rO,tswap / yes, swap it out 


(sp)+,sc / restore user registers 
(sp) *,mq 
sp)+,ac 
sp)+,r5 
(sp)+,r4 
sp)+,r3 
sp)+,r2 
(sp)+,r1 
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UNIX IMPLEMENTATION 


mov (sp)*,rO  - 
mov $s.chrgt*2,clocKp 
decb sysflg / turn system flag off 
jsr r0,isintr / is there an interrupt from the user 
^ br intract , yes, output gets flushed, take interrupt 
action 
rti / no return from interrupt 
badsyst: 
incb u.bsys / turn on the user's bad system flag 
mov $3f,u.namep / point u.namep to core\0\0 
jsr rO,namei / get the i-number for the core image file 
br 1f / error i l l 
neg ri / negate the i-number to open the core image file 
/ for.writing 
jsr rO,iopen / open the core image file 
jsr rO,itrunc / free all associated blocks 
br 2f 
1: . 
mov $17,r1 / put i-node mode (17) in r1 
jsr rO,maknod / make an i-node 
mov u.dirbuf,r1 / put i-nodes number in r1 
2: 
mov $core,u.base / move address core to u.base 
mov $ecore-core,u,count / put the byte count in u.count 
mov $u.off,u.fofp / more user offset to u.fofp 
clr u.off / clear user offset 
jer rO,writei / write out the core image to the user 
mov $user,u.base / pt. usbase to user 
mov $64,,u.count / uscount = 64 
jsr rO,writei / write out all the user parameters 
neg ri / make i-number positive 
jsr r0,iclose / close the core image file 
br sysexit / 
3: a 
<core\0\0> 
sysexit: / terminate process 
clr usintr / clear interrupt control word 
clr ri / clear r1 
1: / r1 has file descriptor (index to u.fp list) Search the whole list 
jsr rO,fclose / close all files the process opened 
br .*2 / ignore error return 
inc ri / increment file descriptor 
cmp r1,910. / end of u.fp list? 
blt 1b / no, go back 
movb u.uno,r1 / yes, move dying process's number to r1 
'elrb '  p.stat-1(rií) / free the process 
asl ri / use r1 for index into the below tables 
mov p.pid-2(r1),r3 / move dying process’s name to r3 
mov p.ppid-2(ri),r4 / move its parents name to r4 
clr r2 
clr r5 / initialize reg 
1: / find children of this dying process, if they are zombies, free them 
add $2,r2 / search parent process table for dying process’s name 
emp peppid-2(r2),r3 / found it? l 


Issue D Date 
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bne 
asr 
cmpb 


bne 
clrb 


asl 


UNIX IMPLEMENTATION 


3£ / no 

r2 / yes, it is a parent 

pestat-1(r2),$3 / is the child of this dying process a 
/ zombie 

2f / no 

pestat-1(r2) / yes, free the child process 


r2 


3: / search the process name table for the dying process's parent 


emp 
"bne 
mov 


cmp 
blt 
mov 
beg 
asr 
movb 
beq 
emp 
beq 
movb 
movb 
emp 
bne 
decb 
mov 
jsr 


p.pid-2(r2),r4 / found it? 

3f / no 

r2,r5 / yes, put index to p.pid table (parents 
/ process # x2) in r5 "n 


r2,$nproctnproc / has whole table been searched? 
1b / no, go back 

r5,r1 / yes, rí now has parents process # x2 

2f / no parent has been found. The process just dies 
ri / set up index to pestat 

pestat-1(1r1),r2 / move status of parent to r2 

2f / if its been freed, 2f 

r2,93 / is parent a zombie? 

2f / yes, 2f 

usuno,r3 / move dying process's number to r3 
$3,p.stat-1(r3) / make the process.a zombie 

r2,92 / is the parent waiting for this child to die 
2f / yes, notify parent not to wait any more 
p.stat-1(r1) / awaken it by putting it (parent) 
$runq*4,r2 / on the rung 

rO, putlu 


2: / the process dies 


clrb 
jsr 
0 


usuno / put zero as the process number, so "swap" will 
r0,swap / overwrite process with another process 
/ and thereby kill it; halt? 


intract: / interrupt action 


cmp 
bne 
cmp 


*(sp),$rti / are you in a clock interrupt? 
4£ / no, 1£ 
(sp)+,(sp)+ / pop clock pointer 


1: / now in user area 


mov 
mov 
cmpb 
beq 
clrb 
mov 
clr 
bis 
rti 

13 / interrupt 
clrb 
mov 
cmp 
blo 
jmp 

Ts 


Issue D Date 


ri,-(sp) / save r1 

u.ttyp,r1 / pointer to tty buffer in control,to Ff. 

6(r1),$177 / is the interrupt char equal to del 

1f / yes, 1f 

6(r1) / no, clear the byte (must be a quit character) 

(sp)+,r1 / restore r1 

u,.quit / clear quit flag 

$20,2(sp) / set trace for quit (sets t bit of ps-trace trap) 
/ xeturn from interrupt 

char = del ; 

6(r1) / clear the interrupt byte in the buffer 

(sp)*,r1 / restore ri 

"o M / should control be transferred to loc core? 

4 

*u,1ntr / user to do rti yes, transfer to loc core 
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sys 


UNIX IMPLEMENTATION 


4 / exit 


syswait: / wait for a process to die 


movb 
asl 
mov 
clr 
clr 


. add 


cmp 
bne 
inc 
asr 
cmpb 
bne 
cirb 
asl 
mov 
br 


asl 


emp 
blt 
tst 


bea 
movb 


incb 
jsr 
br 


errori.: 
l jmp 

sysret1: 
jmp 


usuno,rit / put parents process number in r1 
x1 / x2 to get index into p.pid table 
pepid-2(r1),r1 / get the name of this process 
r2 

r3 / initialize reg 3 


$2,r2 / use r2 for index into p.ppid table / search table 
of parent processes for this process name l 

p.ppid-2(r2),r1 / r2 will contain the childs process number 

3£ / branch if no match of parent process name 

r3 / yes, a match, r3 indicates number of children 

r2 / r2/2 to get index to p.stat table 

p.8tat-1(r2),$3 / is the child process a zombie? 

2f / no, skip it 

p.stat-1(r2) / yes, free it 

r2 / r2x2 to get index into p.pid table 

p.pid-2(r2),*u.rO / put childs process name in (u.rO) 

sysret1 / return cause child is dead 


r2 / r2x2 to get index into p.ppid table 


r2,$nproc+nproc / have all processes been checked? 
1b / no, continue search 
r3 / one gets here if there are no children or children 
/ that are still active l 
errori / there are no children, error 
u.uno,r1 f there are children so put parent process number 
in r1 


pestat-1(11) / it is waiting for other children to die 


rO,swap / swap it out, because it's waiting 
syswatt / wait on next process 


error / see 'error' routine 


sysret / see 'sysret' routine 


sysfork: / create a new process 


clr 


r1 


1: / search p.stat table for unused process number 


inc 
tstb 
beq 
cmp 
blt 
add 


br 
movb 


movb 
incb 


Issue D Date 


ri 

pestat-1(r1) / is process active, unused, dead 

1f / it's unused so branch 

r1,$nproc / all processes checked 

1b / no, branch back i 

$2,18. (sp) / add 2 to pe when trap occured, points 
/ to olá process return 

errori / no room for @ new process 


u.uno,-(sp) / save parent process number 

r?yusuno / set child process number to ri 
pestat-1(r1) / set p.stat entry for child process t 
/ active status ; 
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mov 


beq 
clrb 


mov 
jsr 
asl 
inc 
mov 


movb 
asi 
mov 
mov 


mov 


mov 
mov 


mov 
jsr 
jsr 
mov 
tst : 
movb 
mov 


add 


clr 


UNIX IMPLEMENTATION 


u.ttyp,r2 / put pointer to parent process’ control tty 
/ buffer in r2 

2f / branch, if no such tty assigned 

6(r2) / clear interrupt character in tty buffer 


$runq+4,r2 
r0,putlu / put child process on lowest priority run queue 
ri / multiply r1 by 2 to get index into p.pid table 
mpid / increment mepid; get a new process name 
mpid,p.pid-2(r1) / put new process name in child process” 
/ name slot 
(sp),r2 / put parent process number in r2 
r2 / multiply by 2 to get index into below tables 
pepid-2(r2),r2 / get process name of parent process 
r2,pppid-2(r1) / put parent process name in parent 
process slot for child 
r2,*u.rO / put parent process name on stack at location 
/ where rO was saved 
$sysreti;(sp) / 
sp,u.usp / contents of sp at the time when user is 
/ swapped out 
$sstack,sp / point sp to swapping stack space 
r0,wswap / put child proce:s out on drum 
rO,unpack / unpack user stack 
ueusp,sp / restore user stack pointer 
(sp)* / bump stack pointer 
sp)+,u.uno / put parent process number in u.uno 
mpid,*u.rO / put child process name on stack where rO 
/ was saved 
$2,18.(sp) / add 2 to pc on stack; gives Parent 
/ process return 
r1 


1: / search u.fp list to find the files opened by the parent process 


movb 
beq 
asl 
asl 
asl 
incb 


inc 
cmp 


blt 
br 


sysread: 
jer 
tst 
ble 
jsr 
br 


 Syswrite; 
jsr 


Issue D Date 


u.fp(ri),r2 / get an open file for this process 

2f / file has not been opened by parent, so branch 

r2 / multiply by 8 

r2 / to get index into fsp table 

r2 

fsp-2(r2) / increment number of processes using file, 
/ because child will now be using this file 


ri / cet next open file 

r1,$10. / 10. files is the maximum number which can be 
/ opened 

1b / check next entry 

sysret1 


rO,rw1 / get i-number of file to be read into r1 

ri / negative i-number? 

error! / yes, error 1 to read it should be positive 
+ de / read data into core 

1 


rO,rw1 / get i-number in r4 of file to write 
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tst - 


bge 
neg 
jsr 


mov 
br 


jsr 
jsr 
mov 
jsr 
rts 


sysopen: 

f jsr 
jsr 
br 
tst 
beq 
neg 

1: 
jsr 
tst 
beq 


opo: 
neg 
opi: 
cir 
cir 


UNIX IMPLEMENTATION 


r4 / positive i-number ? 

errori / yes, error 1 negative i-number means write 
ri / make it positive 

rO,writei / write data 


u.-rread,*tu.ro / put no. of bytes transferred into (u.r0) 
sysreti 


rO,arg; u.base / get buffer pointer 

rO,arg; uecount / get no. of characters 

*u.r0,r1 / put file descriptor (index to u.fp table) in ri 
rO,getf / get i-number of the file in r1 

ro 


rO,arg2 / get sys args into u.namep and on stack . 

rO namei / i-number of file in r1 

error2 / file not found 

(sp) / is mode = 0 (2nd arg of call; O means, open for read) 
1f / yes, leave i-number positive 

ri / open for writing so make i-number negative 


| xy0,iopen / open file whose i-number is in ri 


(sp)* / pop the stack and test the mode 
opt / is open for read op1 
ri / make i-number positive if open for writing 


r2 / clear registers 
r3 


1: / scan the list of entries in fsp table 


tstb 


beq 
inc 
emp 
blt 
br 


tst 
beg 
add 
cmp 
bit 
br 
1: / r2 has 
mov 
mov 


cir 
clr 
asr 
asr 
asr 
inc 


Issue D Date 


u.fp(r2) / test the entry in the u.fp list 
1f / if byte in list is O branch 

r2 / bump r2 so next byte can be checked 
r2,$10. / reached end of list? 

1b / no, go back 

error2 / yes, error (no files open) 


fsp(r3) / scan fsp entries 

1f / if O branch 

$8.,r3 / add 8 to r3 to bump it to next entry mfsp table 
r3,S$[nfiles*8.] / done scanning 

1b / no, back 

error2 / yes, error 


index to u.fp list; r3, has index to fsp table 


r1,fsp(r3) / put i-number of open file into next available 
cane raptores) / entry in fsp table, put # of device in 

/ next word 

fspt4(r3) 


fspt6(r3) / clear the next two words 

r3 

r3 / divide by 8 to get number of the fsp entry-1 
r3 

r3 / add 1 to get fsp entry number 
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movb 


mov. 


br 


error2: 
jmp 
sysret2: 
jmp 


syscreat: / 
jsr 
jsr 


neg 
jsr 


jsr 
br 


UNIX IMPLEMENTATION 


r3,u.fp(r2) / move entry number into next available slot 


/ in usfp list 
r2,*u.rO0 / move index to u.fp list into rO loc on stack 
sysret2 


error / see *error” routine 


sysret / see 'sysret' routine 


name; mode 


YO ,arg2 / put file name in u.namep put mode on stack 
r0,namei / get the i-number 
br 2f / if file doesn't exist 2f 
ri / if file already exists make i-number negative 
/ (open for writing) 
rO,iopen / 
rO,itrunc / truncate to O length 
OpO 


2: / file doesn't exist 


mov 
bic 
jsr 
mov 
br 


sysmkdir: / 
jsr 
jsr 


br 


tstb 


bne 
mov 
bic 
bis 
jsr 
br 


sysclose: / 
mov 
jsr 
br 

sysemt; 
jsr 
cmp 
blo 
blo 
mov 


br 
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(sp)+,ri / put the mode in r1 

$1377,r1 / clear upper byte 

rO,maknod / make an í-node for this file 
uedirbuf,ri / put i-number for this new file in r1 
opO / open the file 


make a directory 


r0,arg2 / point u.namep to the file name 
rO,namei / get the i-number 

br .+4 / if file not found branch around error 
error2 / directory already exists (error) 
ueuid / is user the super user 

error2 / no, not allowed 

(sp)+,r1 / put the mode in r1 

$1317,r1 / all but su and ex 

$40000,r1 / directory flag 

rO,maknod / make the i-node for the directory 
sysret2 / 


close the file 


*u.r0,r1 / move index to u.fp list into r1 
rO,fclose / close the file 


‘br error2 / unknown file descriptor 


sysret2 


rO,arg; 30 / put the argument of the sysemt call in loc 30 
30,$core / was the argument a lower address than core 

1f '/ yes, rtssym 

30,$ecore / no, wag it higher than "core" and less than 


2f / yes, Aera 
$rtssym,30 
sysret2 
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UNIX IMPLEMENTATION 


sysilgins: / calculate proper illegal instruction trap address 


jsr 


cmp 
blo 
cmp 
blo 


mov 


2: 
br 


r0,arg; 10 / take address from sysilgins call » put 
/ it in loc Bes 


-10,$core / making it the illegal instruction trap address 


1£ / is the address a user core address? yes, go to 2f 
10,$ecore 
2f 


$fpsym,10 / no, make 'fpsum' the illegal instruction trap 
/ address for the system 


sysret2 / return to the caller via 'sysret' 


sysmdate: / change the modification time of a file 


jsr 
jsr 


jsr 
cmpb 
beq 
tstb 
bne 


jsr 
mov 
mov 
br 


sysstty: / set 
jsr 
mov 
mov 

1: / flush the 
mov 
movb 
mov 
jsr 


br 
mov 
inc 
tstb 
beq 
mov 
jer 
br 


mov 
mov 
mov 


beq 


mov 


mov 


Issue D Date 


rO,arg; uenamep / point u.namep to the file name 
rO,namei / get its i-number 

br error2 / no, such file 

rO,iget / get i-node into core 

u.uid,i.uid / is user same as owner 

1f / yes i 

uuid / no, is user the super user 

error2 / no, error 


r0,setimod / fill in modification data, time etc. 
4(sp),i.mtim / move present time to 
2(sp),i.mtim*2 / modification time 

sysret2 


mode of typewriter; 3 consequtive word arguments . 
aa ee rt will have offset to tty block, r2 has source 
r2,- 8p 

ri,-(sp) / put rf and r2 on the stack 

clist wait till typewriter is quiescent 

(sp),r1 / restore r1 to tty block offset 

tty+3(r1),0£ / put cc offset into getc argument 
$240,*$ps / set processor priority to 5 

rO,getc; 0:../ put character from clist in r1 

br .+4 / list empty, skip branch 

15 / get another character until list is empty 

Ob,r1 / move cc offset to r1 

ri / bump it for output clist 

ccl(rt) / isit o - 

1f / yes, no characters to output 

r1,0£ / no, put offset in sleep arg 

rO,sleep; O:.. / put tty output process to sleep 

1b / try to calm it down again 


(sp)*,r1 

(sp)*,r2 / restore registers 

(r2)+,r3 / put reader control status in r3 

1£ / if 0, 1£ 

r3,rcsr(r1) / move r.c. status to reader control status 
l / register 


(r2)+,r3 / move pointer control status to r3 
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beq 


mov 
13 
mov 


jmp 


sysgtty: / get 


jsr 
mov 
mov 


mov 
jmp 


gtty: 
jsr 
mov 


jsr 
tst 


bgt 
neg 


sub 
cmp 


bhis 


asl 
asi 
asi 
mov 
rts 
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UNIX IMPLEMENTATION 


1f / if O 1f 
r3,tcsr(ri1) / move p.c. status to printer control status reg 


(r2)+,tty+4(r1) / move to flag byte of tty block 
sysret2 / return to user 


status of typewriter; 3 consequtive word arguments 
rO,gtty / ri will have offset to tty block, r2 has 
/ destination 

rcsr(r1),(r2)* / put reader control status in 1st word 
/ of dest 

tesr(r1),(r2)+ / put printer control status in 2nd word 
/ of dest 

tty+4(r1),(r2)+ / put mode in 3rd word 

sysret2 / return to user 


rO,args; u.off / put first arg in u.off 
*u.rO,r1 / put file descriptor in ri 
rO,getf / get the i-number of the file 


. r4 / is it open for reading 


1f / yes i 
ri / no, i-number is negative, so make it positive 


$14.,r1 / get i-number of ttyO 

r1,$ntty-1 / is there such a typewriter 

error9 / no, error 

rt / OX2 

rt / 0%4 / yes 

rt / 0%8 / multiply by 8 so r1 points to tty block 
usoff,r2 / put argument in r2 

rO / return 
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/ u2 -- unix 


UNIX IMPLEMENTATION 


syslink: / name1, name2 


jsr 
jsr 


br 

jsr 
mov 
mov 


mov 
jsr 
jsr 


br 

cmp 
bne 
mov 
joer 


mov 
jsr 
incb 
jsr 


sysret9: 
jmp 
error9: 
jmp 


r0,arg2 / u.namep has 1st arg u.off has 2nd 

rO,namei / find the i-number associated with the 1st 
/ path name 

error9 / cannot be found 

rO,iget / get the i-node into core 

(sp)*,u.namep / u.namep points to 2nd name 

ri,-(sp) / put i-number of name1 on the stack (a link 
/ to this file is to be created) 

cdev,-(sp) / put i-nodes device on the stack 

rO,isdir / is it a directory 

rO,namei / no, get i-number of name2 

br .+4 / not found so ri-i-number of current directory 

ii = i-number of current directory 

error9 / file already exists., error 

(sp)+,cdev / u.dirp now points to end of current dir 

error9 

(sp),u.dirbuf / i-number of name1 into u.dirbuf 

rO,mkdir / make directory entry for name2 in current 
/ directory 

(sp)*,r1 / r1 has i-number of name! 

rO,iget / get i-node into core 

i.nlks / add 1 to its number of links 

r^,setimod / set the i-node modified flag 


sysret / see 'sysret' routine 


error / see 'error' routine 


isdir: / if the i-node whose i-number is in r1 is a directory there is an 
/ error unless super user made the call 


tstb 
beq 
mov 
jsr 
bit 
.bne 
mov 
jsr 


rts 


u.uid / super user 

1f / yes, don't care 

ii,-(sp) / put current i-number on stack 
r0,iget / get i-node into core (i-number in r1) 
$40000,i.flgs / is it a directory 

error9 / yes, error 

(sp)+,r1 / no, put current i-number in r1 (ii) 
rO,iget / get it back in 


ro 


sysunlink: / name - remove link name 


jsr 
jsr 


mov 
jsr 
clr 


sub 
jer 


Issue D Date 


r0,arg; u.namep / u.namep points to name 
r0,namei / find the i-number associated with the path name 
br error9 / not found 
ri,-(sp) / put its i-number on the stack 
rO,isdir / is it a directory 
u.dirbuf / no, clear the location that will get written 
/ into the i-number portion of the entry 
$10.,u.off / move u.off back 1 directory entry 
r0,wdir / free the directory entry 
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mov 
sr 
jsr 
decb 
bgt 
jer 


br 


mkdir: 
jsr 
mov 
mov 


UNIX IMPLEMENTATION 


(sp)+,r1 / get i-number back 

rO,iget / get i-node 

rO,setimod / set modified flag 

i.nlks / decrement the number of links 

sysret9 / if this was not the last link to file return 

r0,anyi / if it was, see if anyone has it open. Then 
/ free contents of file and destroy it. 

sysret9 


rO,copyz; u.dirbuf*2; u.dirbuf+10. / clear this 
u.namep,r2 / r2 points to name of directory entry 
$u.dirbuf*2,r3 / r3 points to u.dirbuf*2 


1: / put characters in the directory name in u.dirbuf+2 - u.dirbuf+10 


movb 
beq 
emp 
beq 
cmp 


beg 
movb 
br 


mov 


wdirs 
mov -> 
mow 
mo: 
jsx 
jsr 
rts 


sysexec; 
jsr 
jsr 


jsr 
bit 
beq 
jsr 


bit 
beq 
tstb 
beg 
movb 


mov 


mov 


Issue D Date 


(r2)*,r1 / move character in name to r1 
1f / if null, done , 
ri,$'/ / isita /? 
error9 / yes, error 
r3,$u.dirbuf+10. / have we reached the last slot for 
/ a char? 
1b / yes, go back 
r1,(r3)+ / no, put the char in the u.dirbuf 
1b / get next char 


u.dirp,u.off ^ pointer to empty current directory slot to 
; u.off 


$u,dirbuf,u.base / u.base points to created file name 
$10.,u.count / u.count = 10 
ii,r1 / rt has i-number of current directory 


r0,access; 1 / get i-node and set its file up for writing 


rO,writei / write into directory 
ro 


r0,arg2 / argO in u.namep,arg1 on top of stack 

rO,namei / namei returns i-number of file named in 
/ sysexec call in r1 

br error9 

rO,iget / get i-node for file to be executed 

$20,i.flgs / is file executable 

error9 

r0,iopen / gets i-node for file with i-number given in 
/ ri (opens file) 

$40,i.flgs / test user id on execution bit 

1f 

u,.uid / test user id 

1£,/ super user 

i.uid,u.uid / put user id of owner of file as process 

/ user id 


(sp)*,r5 / r5 now contains address of list of pointers to 
/ arguments to be passed 

$1,u.quit / u.quit determines handling of quits; 
/ u.quit = 1 take quit 
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mov 


UNIX IMPLEMENTATION 


$1,u.intr / ueintr determines handling of interrupts; 
/ usintr = 1 take interrupt 
mov $rtssym,*30 / emt trap vector set to take system routine 
mov sfpsym,*10 / reserved instruction trap vector set to take 
/ system routine 
mov $sstack,sp / stack space used during swapping 
mov r5,-(sp) / save arguments pointer on stack 
mov $ecore,r5 / r5 has end of core 
mov $core,r4 / r4 has start of users core 
mov r4,u.base / u.base has start of users core 
mov (sp),r2 / move arguments list pointer into r2 
1: 
tst (r2)* / argument char = "nul" 
bne 1b 
tst -(r2) / decrement r2 by 2; r2 has addr of end of argument 
/ pointer list 
1: / move arguments to bottom of users core 
mov -(r2),r3 / (r3) last non zero argument ptr 
emp r2,(sp) / is r2 = beginning of argument ptr list 
blo 1f / branch to 1f when all arguments are moved 
2: 
tstb (r3)+ 
bne 2b / scan argument for NO (nul) 
2: 
movb -(r3),-(r5) / move aggument char by char starting at 
ecore 
cmp r3,(r2) / moved all characters in this argument 
bhi 2b / branch 2b if not 
mov r5,(r4)* / move r5 into top of users core; r5 has 
/ pointer to nth arg ` 
br 1b / string 
1: 
clirb  -(15) 
bic $1,r5 / make r5 even, r5 points to last word of argument 
/ strings 
mov $core,r?2 
1: / move argument pointers into core following argument strings 
cmp r2,r4 
bhis 1f / branch to 1f when all pointers are moved 
mov (r2)$-(r5) 
br 1b 
1: 
sub $core,r4 / gives number of argurents *2 
asr r4 / divide r4 by 2 to calculate the number of args stored 
mov r4,-(r5) / save number of arguments ahead of the argument 
/ pointers 
cir -(r5) / popped into ps when rti in sysrele is executed 
mov $core,-(r5) / popped into pc when rti in sysrele 
/ is executed 
mov r5,0f / load second copyz argument 
tst -(r5) / decrement r5 
mov r5,u.r0 / 
sub $16.,r5 / skip 8 words 
mov r5,u.sp / assign user stack pointer value, effectively 
zeroes all regs when sysrele is executed 
jer rO,copyz; core; 0:0 / zero user's core 
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clr u.break 


mov r5,8p / point sp to user's stack 

mov $14,u.count 

mov $u.off,u.fofp 

clr u.Off / set offset in file to be read to zero 

jsr rO,readi / read in first six words of user's file, starting 

|». / at $core 

mov sp,r5 / put users stack address in r5 

sub $core+40.,r5 / subtract $core +40, from r5 (leaves 
/ number of words less 26 available for 
/ program in user core 

mov r5,u.count / 


cmp core,$405 / br .*14 is first instruction if file is 
/ standard a.out format 

bne 1f / branch, if not standard format 

mov core*2,r5 / put 2nd word of users program in r5; number of 
/ bytes in program text 

sub $14,r5 / subtract 12 


cmp r5,u.count / 
bot . if / branch if r5 greater than u.count 
mov r5,u.count 
jsr rO,readi / read in rest of user's program text 
add core*10,u.nread / add size of user data area to u.nread 
br 2f 
1: 
jsr rO,readi / read in rest of file 
2t 
mov u.nread,u.break / set users program break to end of 
/ user code 
. add $core*14,u.break / plus data area 
| jer rO,iclose / does nothing 
br sysret3 / return to core image at score 


sysfstat: / set status of open file 
jsr rO,arg; u.off / put buffer address in u.off 
mov u.off,-(sp) / put buffer address on the stack 
mov *u.r0,r1 / put file descriptor in r1 
jsr rO,getf / get the files i-number 
tst ri / is it 0? 


beq error3 / yes, error 
bgt 1f / if i-number is negative (open for writing) 
neg ri / make it positive, then branch 
br 1f / to 1f 
sysstat: / ; name of file; buffer - get files status 
jsr r0,arg2 / get the 2 arguments 
jsr rO,namei / get the i-number for the file 


br error3 / no such file, error 


jer r0,iget /:get the i-node into core 

mov (sp)+,r3 / move u.off to r3 (points to buffer) 
mov r1,(r3)+ / put i-number in 1st word of buffer 
mov $inode,r2 / r2 points to i-node 


mov (r2)*,(r3)* / move rest of i-node to buffer 
cmp r2,$inode+32 / done? 


Issue D Date 3/17/72 ID IMO. 1-1 Section E.2 Page 4 


bne 
br 


error3: 
o jmp 
sysret3: 
jmp 


UNIX IMPLEMENTATION 


1b / no, go back 
sysret3 / return through sysret 


error / see ‘error’ routine 


sysret / see 'sysret' routine 


getf: / get the device number and the i-number of an open file 


cmp 
bhis 


movb 
beq 
asl 
. asl 
asl 
add 
mov 
mov 
mov 


rts 


. namei: 
mov 
mov 
cmpb 
bne 
inc 
mov 
clr 


tstb 
beq 


jsr 
bit 
beq 
mov |— 
clr 
mov 


mov 


mov 
jsr 


tst 
ble 
tst 
bne 


mov 
sub 
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rí,$10. / user limited to 10 open files 
error3 / u.fp is table of users open files, index in 
/ fsp table 
u.fp(rií),r1 / r1 contains number of entry in fsp table 
1f / if its zero,return 
r1 $ 
ri / multiply by 8 to get index into fsp table entry 
r1 
$fsp-4,r1 / r1 is pointing at the 3rd word in the fsp entry 
ri,u.fofp / save address of 3rd word in fsp entry in u.fofp 
-(r1),cdev / remove the device numbe-  cdev 
-(rií),r1 / ani the i-nusber r1 


ro 


u.cdir,rt / put the i-number of current directory in r1 
u.cdev,cdev / device number for users directory into cdev 
*u.namep,$*/ / is first char in file name a / 

1f 

u.namep / go to next char 

rootdir,ri / put i-number of rootdirectory in r1 

cdev / clear device number 


*u.namep / is the character in file nameanul,  , 
nig / yes, end of file name reached; branch to nig 


rO,access; 2 / get i-node with i-number r1 

$40000,i.flgs / directory i-node? 

error3 / no, got an error l 

i.size,u.dirp / put size of directory in u.dirp 

u.off / u.off is file offset used by user 

$u.off,u.fofp / u.fofp is a pointer to the offset portion 
/ of fsp entry 


$u.dirbuf,u.base / u.dirbuf holds a file name copied from 
/ à directory 
$10.,u.count / u.count is byte count for reads and writes 
rO,readi / read 10. bytes of file with i-number (r1); 
/ i.e. read a directory entry 
unread 
nib / gives error return 
uedirbuf / 
3f / branch when active directory entry (i-node word in 
/ entry non zero) ` 
u.off,u.dirp 
$10.,u.dirp 
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br 


mov 
mov 


movb 
beq 


cmp 
beq 
cmp 
beq 


cmpb l 


beq 
br 


cmp 
beq 
tstb 
bne 


mov 
mov 
tst 


bne 


nig: 

tst 
nib: 

rts 


UNIX IMPLEMENTATION 


2b 


uenamep,r2 / u.namep points into a file name string 
$u.dirbuf+2,r3 / points to file name of directory entry 


(r2)*,r4 / move a character from u.namep string into r4 
3f / if char is nul, then the last char in string has been 
/, moved 
r4,$'/ / is char a </> 
3f 
r3,$u.dirbuf+10. / have I checked all 8 bytes of file name 
3b 
(r3)+,r4 / compare char in u.namep string to fi;e name 
/ char read from 
3b / directory; branch if chars match 
2b / file names do not match go to next directory entry 


r3,$u.dirbuf*10. / if equal all 8 bytes were matched 
3f 
d / 


r2,u.namep / u.namep points to char following a / or nul 
u.dirbuf, ri / move i-node number in directory entry to r1 
r4 / if r4 = O the end of file name reached, if r4 - </> 
/ then go to next directory 

1b 


(r0)+ / gives non-error return 


ro 


syschdir: / makes the directory specified in the argument the current 
/ directory 


jsr 
jsr 


jsr 
bit 
beg 
mov 
mov 
br 


` isown: 
jsr 
jer 


jer 
tstb 
beg 
cmpb 
bea 
jmp 
13 : 
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rO,arg; u.na'«ep / usnamep points to path name 
rO,namei / find its i-number 

br error3 

rO,access; 2 / get i-node into core 

$40000, i.flgs / is it a directory? 

error3 / no error 

rií,u.cdir / move i-number to users current directory 
cdev,u.cdev / move its device to users current device 
sysret3 


rO,arg2 / us.namep points to file name 
r0,namei / get its i-number 
br error3 
r0,iget / get i-node into core 
u, uid / super user? 
1f / yes, branch 
i.uíd,u.uid / no, is this the owner of the file 
1f / yes 
error3 / no, error 
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jsr 
mov 


rts 


syschmod; / 
Jsr 
bit 
beq 
bic 


movb 


br 


UNIX IMPLEMENTATION 


r0,setimod / indicates i-node has becn modified 

(sp)*,r2 / mode is put in r2 (u.off put on stack with 
/ 2nd arg) 

ro 


name; mode 


rÒ, isown / get the i-node and check user status 
$40000, i.flgs / directory? 
2f / no 
$60,r2 / su & ex / yes, clear set user id and 
/ executable modes 


r2,i.flgs / move remaining mode to 1.flgs 
1f 


syschown: / name; owner 


jer 


tstb 


beg 
bit 
bne 


movb 


jmp 
jmp 


arg: 
mov 
mov 


add 
rts 


arg2: 
jsr 


jsr 


mov 
InOV 
mov 


jmp 


systimes / get 


mov 
mov 
pr 


rO, isown / get the i-node and check user status 
u.uid / super user 

2f / yes, 2f 

$40,1.flos / no, set user id on execution? 

3f / yes error, could create Trojan Horses 


r2,i.uid / no, put the new owners id in the i-node 
sysret4 


error 


u.sp 
*18. y *(ro)* / put argument of system call into 
/ argument of arg2 ev ri 
$2,18.(r1) / point pc on stack to next system argument 
ro 


rO,arg; u.namep / uenamep contains value of first arg in 
/ sys call 
rO,arg; u.off / u.off contains value of second arg in 
/ sys call 
r0,r1 / rO points to calling routine 
(sp),rO / put operation code back in rO 
u.off,(sp) / put pointer to second argument on stack 
(r1) / return to calling routine 


time of year 

setime,4(sp) 
s.timet2, 2(sp) / put the present time on the stack 
sysretá 


sysstime: / set time 


tstb 


bne 
mov 
mov 
br 


Issue D Date 


usuid / is user the super user 
error4 / no, error 

4(sp),s.time 

2(sp),s.time*t2 / set the system time 
sysret4 
3/17/72 
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sysbreak: / set the program break 


mov 
emp 
bios 
cmp 
bhis 
bit 
beq 
clrb 


u.break,r1 / move users break point to r1 
r1,$core / is it the same or lower than core? 

1f / yes, 1f 

r1,sp / is it the same or higher than the stack? 
1£ / yes, 1f 

$1,r1 / is it an odd address 

2f / no, its even 

(rí)* / yes, make it even 


2: / clear area between the break point and the stack 


cmp 
bhis 
cir 
br 
13 
jer 


br 


r1,sp / is it higher or same than the stack 
1£ / yes, quit 

(r1)+ / clear word 

2b / go back 


rO,arg; u.break / put the "address" in u.break (set new 
/ break point) 
sysret4 / br sysret 


maknod: / r1 contains the mode 


bis 
mov 
mov 
jsr 
mov 
mov 


$100000,r1 / allocate flag set 
r1,-(sp) / put mode on stack 

ii,r1 / move current i-number to r1 
rO,access; 1 / get its i-node into core 
ri,-(sp) / put i-number on stack 
$40.,r1 / r1 = 40 


1: / scan for a free i-node (next 4 instructions) 


inc 
jsr 


bitb 
bne 
bisb 
jsr 
tst 
blt 
mov 
mov 
jsr 
jsr 
mov 
jsr 
jsr 
mov 
movb 
movb 
mov 
mov 
jsr 
rts 


ri fri = 11+1 

r0,imap / get byte address and bit position in inode map in 
r2 & m 

mq,(r2) / is the i-node active 

ib / you, try the next one 

mq,(r ) / no, make it activ: (put a 1 in the bit map) 

rO,iget / get i-node into core 

i.flgs / is i-node already allocated 

1b / yes, look for another one 

r1,u.edirbuf / no, put i-number in u.dirbuf 

(sp)+,r1 / get current i-number back 

rO,iget / get i-node in core 

rO,mkdir / make a directory entry in current directory 

u.dirbuf,r1 / r1 = new inode number 

rO,iget / get it into core 

rO,copyz; inode; inode*32. / 0 it out 

(sp)+,i.flgs / fill flags 

u.uid,i.uid / user id 

$1,1.nlks / 1 link 

s.time,i.ctim / time created 

s.time+2,i.ectim+2 / time modified 

rO,setimod / set modified flag 

rO / return 


sysseek: / moves read write pointer in an fsp entry 


jsr 
add 
mov 


Issue D Date 


rO,seektell / get proper value in u.count 
u.base,u.count / add u.base to it 
u.count,*u.fofp / put result into r/w pointer 
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br © sysret4 


systell: / get the r/w pointer 


jsr r0,seertell 

br errorá 
errorá4: 

jmp error / see 'error' routine 
sysret4: l 

jmp sysret / see 'sysret' routine 
seektell: 

jsr rO,arg; u.base / puts offset in u.base 

jsr rO,arg;.u.count / put ptr name in u.count 

mov *tu.r0,rt / file descriptor in ri (index in u.fp list) 

jsr r0,get£ / u.fofp points to 3rd word in fsp entry 

mov r1,-(sp) / r1 has i-number of file, put it on the stack 

beq -errorá / if i-number is 0, not active so error 

bgt +4 / if its positive jump 

neg ri / if not make it positive 

jer | rO,iget / get its i-node into core 

cmp u.count,$1 / is ptr name =1 

blt 2f / no its zero 

beq 1f / yes its 1 

mov i.size,u.count / put number of bytes in file in u.count 

br | 2f 
1: / ptr name z1 

mov *u.fofp,u.count / put offset in u.count 
2: / ptrname =0 

mov (sp)+,r1 / i-number on stack ri 

rts ro 
sysintr: / set interrupt handling 

jsr rO, arg; u.intr / put the argument in u.intr 

br 1f / go into quit routine 
SysquiT $ jer rO,arg; u.quit / put argument in u.quit 
1: 

mov uettyp,r1 / move pointer to control tty buffer to r1 

beq sysret4 / return to user 

clrb | 6(r1) / clear the interrupt character in the tty buffer 

br sysret4 / return to user 


syssetuid: / set process id 
movb *u.r0,ri / move process id (number) to r1 
cmpb r1,ueruid / is it equal to the real user id number 
beq 1f / yes 
tstb u.uid / no, is current user the super user? 


bne error4 / no, error 
1: ; 
movb ri,u.uid / put process id in u.uid 
movb rií,u.ruid / put process id in u.ruid 
br sysret4 / system return 
8ysgetuid: 
movb  u,ruid,*u.rO / move the real user id to (u.r0) 
br sysret4 / system return, sysret 
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fclose: 
mov 


jsr 


tst 
beq 
tst 
mov 
mov ' 


clrb 
mov 
decb 


bge 
mov 
clr 
tstb 
beg 
mov 
jsr 


mov 
jsr 


mov 
rts 


UNIX IMPLEMENTATION 


r1,-(sp) / put ri on the stack (it contains the index 
/ to u.fp list) . 

r0,getf / r1 contains i-number, cdev has device =, u.fofp 
/ points to 3rd word of fsp entry 

rt / is inurber 0? 

1£ / yes, i-node not active so return 

(r0)+ / no, jump over error return 

ri, r2 / move i-number to r2 

(sp),r1 / restore value of ri from the stack which is 
/ index to u.fp 

uefp(r1) / clear that entry in the u.fp list 

u.fofp,ri / rt points to 3rd word in fsp entry 

2(r1) / decrement the number of processes that have opened 

/ the file 

1f / if all processes haven't closed the file, return 

r2,-(sp) / put r2 on the stack (i-number) 

-4(r1) / clear 1st word of fsp entry 

3(r1) / has this file been deleted 

2f / no, branch 

r2,r1 / yes, put i-number back into r1 

rO,anyi / free all blocks related to i-number 
/ check if file appears in fsp again 


(sp)+,r1 / put i-number back into r1 
rO,iclose / check to see if its a special file 


(sp)+,r1 / put index to u.fp back into r1 
ro 


anyi: / r1 contains an i-number 


mov 
1: 

cmp 

beq 

neg 

cmp 

beq 


add 
cmp 
blt 
tst 
bge 
neg 
jsr 
bicb 
jsr 
cir 
rts 
1: / i-numbers 
incb 
rts 
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$fsp,r2 / move start of fsp table to r2 


r1,(r2) / do i-numbers match? 
1£ / yes, 1£ 
ri / no complement r1 
r1,(r2) / do they match now? 
1£ / yes, transfer 
/ i-numbers do not match 
$8,r2 / no, bump to next entry in fsp table 
r2,$fsp+[nfiles*8] / are we at last entry in the table 
ib / no, check next entries i-number 
ri / yes, no match 
+4 
ri / make i-number positive 
rO,imap / get address of allocation bit in the i-map in r2 
mq,(r2) / clear bit for i-node in the imap 
rO,itrunc / free all blocks related to i-node 
i.flgs / clear all flags in the i-node 
rO / return 
match 
7(r2) / increment upper byte of the 4th word 
rO / in that fsp entry (deleted flag of fsp entry) 
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/ u3 -- unix 


tswap: 
movb 
mov 
jsr 
swaps 
mov 
mov 


UNIX IMPLEMENTATION 


usuno,ríi / move users process number to r1 
$runqt4,r2 / move lowest priority queue address to r2 
r0,putlu / create link from last user on Q to u.uno's user 


$300,*$ps / processor priority - 6 
$rung,r2 / r2 points to runq table 


1: / search rung table for highest priority process 


tst 
bne 
emp 
bne 
jer 


br 


tst 
mov 
movb 
cmpb 
beq 
tst 
movo 


br 

1: 
cir 

2: / write out 

/ required 

clr 
cmpb 
beq 
mov 


mov 
mov 
mov 
tstb 
beg 
jsr 


mov 
jsr 
jsr 
mov 


mov 


movb 
rts 
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(r2)+ / are there any processes to run in this Q entry 
1f / yes, process 1£ 
r2,$runq+6 / if zero compare address to end of table 
1b / if not at end, go back 
r0,idle; s.idlet«2 / waif for interrupt; all queues 

/ are empty 
swap 


-(r2) / restore pointer to right Q entry 
r2,u.pri / set present user to this run queue 
(r2)+,r1 / move 1st process in queue to r1 
D / is there only 1 process in this Q to be run 
1f yes 
-(r2) / no, pt r2 back to this Q entry 
p.link-1(r1),(r2) / move next process in line into 
/ run queue 
2f 


-(r2) / zero the entry; no processes on the Q 
core to appropriate disk area and read in new process if 


*sps / clear processor status 
r1i,u.euno / is this process the same as the process in core? 
2f / yes, don't have to swap 


r0,-(sp) / no, write out core; save rO (address in rout! 


/ that called swap) 
sp,u.usp / save stack pointer 
$sstack,sp / move swap stack pointer to the stack pointer 
rt,-(sp) / put r1 (new process #) on the stack 
ueuno / is the process # = 0 
1£ / yes, kill process by overwriting 
r0,wswap / write out core to disk 


(sp)*,r1 / restore r1 to new process number 

rO,rswap / xead new process into core | 

rO,unpack / unpack the users stack from next to his program 
/ to its normal 


ueusp,sp / locations; restore stack pointer to new process 
/ stack 

(sp)+,r0 / put address of where the process that just got 
/ swapped in, left off., i.e., transfer control 


/ to new process 


$30.,uquant / initialize process time quantum 
rO / return 
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WSK D3 

mov 
mov 
mov 
inc 
bic 
mov 

. mov 
cmp 
blos 
emp 
bhis 


mov 
cmp 
bne 
br 


mov 
sub 


neg 
asr 
mov 
movb 
asl 
mov 


mov 
mov 


bis 
jsr 


tstb 
bne 
rts 


rswap: 
asl 
mov 
mov 
bis 
jsr 


tstb 
bne 
mov 
mov 
rts 


unpack; / move 
mov 
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*$30,u.emt / determines handling of erts 

#$10,ueilgins / determines handling of illegal instructions 
uebreak,r2 / put process program break address in r2 

r2 / add 1 to it i 

$1,r2 / make it even 

r2,u.break / set break to an even location 

ususp,r3 / put users stack pte: at moment of swap in r3 
r2,$core / is u.break less than $core 

2f / yes l 
r2,r3 / no, is (u.break) greater than stack pointe 

2f / yes 


"(r3)*,(r2)* / no, pack stack next to users program 


r3,$ecore / has stack reached end of core 
1b / no, keep packing 
1f / yes 


$ecore,r2 / put end of core in r2 


$user,r2 / get number of bytes to write out (user up 
/ to end of stack gets written out) 
r2 / make it negative 
r2 / c ange bytes to words (divide by 2) 
r2,swot4 / word count 
usuno,zi / move user process number to r1 
rt / x2 for index 
r2,p.break-2(r1) / put negative of word count into the 
/ pebreak table 
pedska-2(r1),r1 / move disk address of swap area for 
/ process to r1 
r1,swp+2 / put processes dska address in swp +2 (block 
/ number) 
$1000,swp / set it up to write (set bit 9) 
r0,ppoke / write process out on swap area of disk 


swp+1 / is it done writing? 
ib / no, wait 
rO / yes, return to swap 


ri / process number x2 for index 
pebreak-2(r1), swp+4 / word count 
p.dska-2(r1),swp+2 / disk address 
$2000,swp / read 

rO,ppoke / read it in 


swp+1 / done 

1b / no, wait for bit 15 to clear (inhibit bit) 
u.emt,*$30 / yes move these 

u.ilgins,*$10 / back 

rO / return 


stack back to its normal place 
u.break,r2 / r2 points to end of user program 
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23 


emp 
blos 
cmp 


bhis 
mov 
add 
sub 


mov 
cmp 
bne 


rts 


putlu: / r1 


copyz: 


idle: 


Clear: 


Issue D Date 


tstb 
beq 
movb 
movb 
br 


movb 


movb 


dec 
rts 


mov 
mov 
mov 
mov 


clr 
cmp 
blo 
mov 
mov 
rts 


mov 
clr 
mov 
mov 


UNIX IMPLTMENTATION 


r2,$core / at beginning of user program yet? 

2f / yes, return . 

r2,u.usp / is break,above the stack pointer before 
/ swapping 

2f / yes, return 

$ecore,r3 / r3 points to end of core 

r3,r2 

ususp,r2 / end of users stack is in r2 


-(r2),-(r3) / move stack back to its normal place 
r2,u.break / in core 
1b 


ro 


user process no.; r2 points to lowest priority queue 
(r2)* / is queue empty? 
1f / yes, branch A " 
(r2),r3 / no, save the last user procesg number in,r3 
M LS / put pointer to user on last users link 
2f l 


r1,-1(r2) / user is only user; put process no. at beginning 
/ and at end 


r1,(r2) / user process in r1 is now the last entry on 
the queue 

r2 / restore r2 

ro 


ri,-(sp) / put r1! on stack 
r2,-(sp) / put r2 on stack 
(r0)+,r1 
(r0)*,r2 


(r1)+ / clear all locations between r1 and r2 
rí,r2 


. tb 


(sp)+,r2 / restore r2 
(sp)*,r1 / restore r1 
ro i 


*sps,-(sp) / save ps on stack 

*sps / clear ps 

clockp,-(sp) / save clockp on stack 
(r0)+,clockp / arg to idle in clockp 


1 / wait for interrupt 


mov 
mov 
rts 


jer 


(sp)+,clockp / restore clockp, ps 
(sp)*,*$ps 
ro 


r0,wslot / get an 1/0 buffer set bits 9 and 15 in first 
/ word of I/O queue r5 points to first data word 
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mov 
clr 
dec 
bgt 
jsr 


rts 


Issue D Date 


UNIX IMPLEMENTATION 


/ in buffer 
$256,,r3 


(r5)* / zero data word in buffer 

r3 

1b / branch until all data words in buffer are zero 

rO,dskwr / write zeroed buffer area out onto physical 
/ block specified 

rO / in r1 
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/ u4 -- unix 


setíisp: 
mov 
mov 
mov 
mov 
mov 


jmp 


UNIX IMPLEMENTATION 


ri,-(sp) 
r2,-(sp) 

r3 ye (sp) 
clockp,-(sp) 
$s.syst+2,clockp 
(ro) 


clock; / interrupt from 60 cycle clock 


mov 
tst 
mov 
inc 
bne 
inc 


mov 
inc ' 
bne 
inc 


mov 
decb 
bge 
clrb 

1: / decrement 
emp 
bge 
tstb 
bnc 
empb 
bne 
mov 
sys 
rti 


rO,-(sp) / save rO 

*siks / restart clock? 

$s.time+2,r0 / increment the time of day 
(r0) 

4f 


-(ro) 


ono AE / increment appropriate time category 
ro 

1£ 

-(r0) 


E agra / decrement user time quantum 

ro 

1£ / if less than O 

(rO) / make it O 

time out counts return now if priority was not O 
4(sp),$200 / ps greater than or equal to 200 
2f / yes, check time outs 

(ro) / no, user timed out? 

1f / no 

sysflg,$-1 / yes, are we outside the system? 
1f / no, 1f 

(sp)+,r0 / yes, put users rO in rO 

O / sysrele 


2: / priority is high so just decrement time out counts 


mov 


tstb 
beq 
decb 
bne 
incb 


inc 
cmp 
blo 
mov 
rti 
4: / decrement 
mov 
mov 
jsr 
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$toutt,rO / rO points to beginning of time out table 


(ro) / is the time out? 

3f / yes, 3f (get next entry) 

(ro) / no, decrement the time 

3f /Isit zero now? 

(ro) / yes, increment the time 


rO / next entry 

rO,$touts / end of toutt table? 

2b / no, check this entry 

(sp)*,rO / yes, restore rO 

/ return from interrupt 

time out counts; if O call subroutine 
(sp)*,rO / restore rO 

$240,*$ps / set processor priority to 5 
rO,setisp / save registers 
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mov 


tstb 
bey 
decb 
bne 
asl 
jsr 
asr 
2: 
. dec 


bge 
br 


UNIX IMPLEMENTATION 


$touts-toutt-1,rO0 / sec up rO as index to decrement thru 
/ the table 


aded / is the time out for this entry 


e ae for / no, decrement the time 

2£ / is the time 0, now 

rO / yes, 2 x rO to get word index for tout entry 
rO,*touts(rO) / go to appropriate routine specified in this 
rO / touts entry; set rO back to toutt index 


rO / set up rO for next entry 
tb / finished? , no, go back 
retisp / yes, restore registers and do a rti 


ttyi: / console tty input interrupt routine 


jsr rO,setisp / save reg r1, r2, r3 
mov *$tki,r1 / ri = char in tty reader buffer 
inc *stks / set the reader enable bit 
bic $1177,r1 / clear upper 9 bits of the character (strip of: 
/ 8th bit of char) 
cmp rí,$'a-40 / is character upper case A,..., upper case Ze 
/ note that 
blt 1f / lower case a is represented by 141, upper case by 
emp rí,$'z-40 / 101; and lower case z by 172, upper 
/ ease Z by 132. 
bgt 1f / 1f not upper case, branch 
add $40,r1 / if upper case, calculate the representation of its 
lower case counter part 
13 
cmp rí,$175 / char = ")'? Note: may be quit char (fs) 
beq 2f 1 yes 2f MOS 
cmp r1,8177 / char = del? 
beq 2f Y yes, 2f 
jsr rO,putc; O / put char in r1 on clist entry 
br 1f 
movb r1,ttyoch / put char in ttyoch 
jsr rO,startty / load char in tty output data buffer 
emp r1,$4 / r1 = "eot" 
beq 1f “Y yes, if . . 
emp r1,812 /ri= lf 
beq 1£ 7 yes 1£ 
cmpb | cc*0,$15. / are there less than 15 chars on the input list 
blo retisp / yes, return 
1: 
jsr rO,wakeup; runq; O / no, wakeup the input process 
br, retisp / return 
2: / r1 “y” or “delete” to get here 
mov tty*[ntty*8]-846,r2 / move console tty buffer address to r2 
beq 2f / if O, wakeall | " E 
movb  r1,6(r2) / move ) or del into interrupt char 
/ byte of buffer 
2% 
jsr rO,wakeall / wakeup all sleeping processes 
br retisp / return 
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wakeall: 


1: 


ttyo: / 


retisp: 


ppti: / 


UNIX IMPLEMENTATION 


mov $39. ,0f / fill arg2 of wakeup call with 39 

jsr rO,wakeup; rungt4; O;.. / wakeup the processes in the 
dec Ob / wait list; decrement arg2 
bge | 1b / if not done, go back 

rts ro 


console typewriter output interrupt. routine 


jsr rO,setisp / save registers Ye» Fe, 
jsr rO,startty / put a char en"tne console tty o'tput buffer- 
br retisp / restore registers 

mov (sp)*,clockp / pop values before interrupt off the stack 
mov (sp)+,r3 

mov . (sp)+,r2 

mov (sp)+,r1 

mov (sp)+,r0 

rti / return from interrupt 


paper tape input interrupt routine 
jsr rO,setisp / save registers , 
movb  pptiflg,ri / place pptiflg in r1 E n 
jmp *4f(ri) / jump to location specified by value of pptiflg 


retisp / file not open 
1£ / file just opened 

2f / file normal 

retisp / file not closed 


1: / file just opened 


/lptos 


Issue D 


tstb  *$prs+1 / is error bit set in prs 

bge 4f / no 

jsr r0,pptito / place 10 in toutt entry for ppt input 
br retisp 


movb  $4,pptiflg / change "pptiflg" to indicate file "normal" 


jsr rO,wakeup; runq*2; 2 / wakeup process for ppt input entry 
/ in wlist 

tstb *sprsti / is error bit set 

blt 1f / yes 

mov *sprb,r1 / place contents ppt read buffer in r1. 

jsr rO,putc; 2 / place character in clist area for ppt input 
br .+2 / temp / if no space in clist character lost 

cmpb cc*2,950. / character count in clist area for ppt input 

/ greater than or equal to 50 

bhis  retisp / yes 

inc *gprs / no, set reader enable bit in prs 

br retisp 


movb $6,pptiflg / set pptiflg to 6 to indicate error bit set 
br retisp 
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UNIX IMPLEMENTATION 


/ jsr rO,setisp 

/ jsr rO,starlpbt 

/ br retisp 

ppto: / paper tape output ir errupt routine 
jsr rO,setisp / save registers 
jsr rO,starppt / get next character from clist, and output 

/ if possible 

br retisp / pop register values from stack 

/sta-lpt: 

/ cmpb cars. 39100. 

/ bhi 1f 

y jsr rO,wakeup; runq+2; 5 

1: 

/ tstb *$lps 

/ bge 1f 

/ jsr rO,getc; 5 

/ br 1f 

/ mov rt,*slpb 

/ br starlpt 

/1: 

/ rts ro 


startty: / start or restart console tty output 
cmpb cc*1,$5. 


bhi 1f / branch to 1f when character count on tty (? input, 
/ output) list is greater than 5. 
jsr rO,wakeup; rungt2; 1 


tstb *$tps / test console output ready bit 
bge 2f / branch if ready bit is clear 
tstb toutt+O / is toutt for console a zero 
bne 2f / if not; branch to 2f 
movb ttyoch,r1 / put character to be output in r1 
bne 1f 
jsr rO,getc; 1 / if char is nul, get a char from console 
/ output list 
br 2f / if console output list is empty, branch to 2f 


cirb ttyoch 


mov r1,*stpb / put character in console output register 
cmp rí,$12 / is char a line feed 
bne 1£ 


movb $15,ttyoch / put a cr in ttyoch 


cmp ri,$11 / char = ht 

bne 1£ 

movb  $15.,toutt+0 / set time out to 15 clock tics 
1: ` 

cmp rí,$15 / char = cr 

bne 2f : 

movb $15.,toutt+0 / set time out to 15 clock ticks 


rts ro 
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UNIX IMPLEMENTATION 


pptito: / paper tape input touts subrouting 


cmpb 
bne 
movb 
tstb 
bit 
ine 


4: 


rts 


pptiflg,$2 / does "pptiflg indicate file just opened 

1£ / no, do nothing art 
$10.,toutt*1 / yes, place 10 in tout entry for tty input 
*éprs*1 / is error bit set ° 

1£ / yes, return 

*sprs / no, set read enable bit 


ro 


starppt: / start ppt output 


cmpb 
bhi 
jer 


tstb 
bge 
jsr 


mov 


rts 


cc*3,910. / is character count for ppt output greater 
/ than 10. 


1f / yes, branch 


r0,wakeup; rungt2; 3 / no, wakeup process in wlist 
/ entry for ppt input 


*spps / is ready bit set in punch status word 

1f / no, branch 

rO0,getc; 3 / yes, get next char in clist for pptout and 
place in r1 

br 1f / if none, branch 

r1,*$ppb / place character in ppt buffer 


ro 


wakeup: y wakeup processes waiting for an event by linking them to the 
queue 


mov 
mov 
mov 
movb 


beq 
cmp 


bhis 

clrb 
1: 

clirb 

jsr 


mov 
rts 


r1,-(sp) / put char on stack 
(r0)+,r2 / r2 points to a queue 
(rO)*,r3 / r3 = wait channel number. 
wlist(r3),r1 / r1 contains process number in that wait 
/ channel that was sleeping 
2f / if O return, nothing to wakeup 
r2,u.pri / is runq greater than or equal to users process 
/ priority 
1f / yes, don't set time quantum to zero 
uquant / time quantum = O 


wlist(r3) / zero wait channel entry 
rO,putlu / create a link from the last user on the Q 
/ to this process number that got woken 


(sp)+,r1 / restore r1 
ro 


sleep: / wait for event 


jsr 
mov 
movb 
movb 
mov 
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rO,isintr / check to see if interrupt or quit from user 
br 2f / something happened / yes, his interrupt so return 
/ to user 

(r0)+,r1 / put number of wait channel in r1 
wlist(r1),-(s9) / put old process number in there, on 

/ the stack . 
ueuno,wlist(r1) / put process number of process to put 

/ to sleep in there 
cdev,-(sp) / nothing happened in isintr so 
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jer 
mov 
jsr 


movb 
beq 
mov 
mov 
jsr 
cir 
rts 


jmp 


isintr: 


1: 


mov 
mov 
mov 


beq 
movb 
beq 
cmp 
bne 
tst 


bne 
tst 


mov 
mov 
rts 

/ interrupt 
tst 
beq 


UNIX IMPLEMENTATION 


rO,swap / swap out process that needs to sleep 

(sp)+,cdev / restore device 

rO,isintr / check for interrupt of new process 

br 2f / yes, return to new user 

(sp)+,r1 / no, r1 = old process number that was originally 
/ on the wait channel 

1f / if O branch 

$runqt4,r2 / r2 points to lowest priority queue 

$300,*$ps / processor priority - 6 

rO,putlu / create link to old process number 

*$ps / clear the status; process priority = 0 


rO / return 


sysret / return to user 


ri,-(sp) / put number of wait channel on the stack 
r2,-(sp) / save r2 
uettyp,ri / ri = pointer to buffer o^ process control 
/ typewriter 
1f / if O, do nothing except skip return 
6(r1),r1 / put interrupt char in the tty buffer in r1 
1f / if its O do nothing except skip return 
r1,$177 / is interrupt char = delete? 
3f 7 no, so it must be a quit (fs) 
ueintr / yes, value of u.intr determines handling 
/ of interrupts 
2f / if not O, 2f. If zero do nothing. 


(r0)+ / bump rO past system return (skip) 


(sp)+,r2 / restore r1 and r2 

(sp)+,r1 

ro 

Char = quit (fs) 

uequit / value of u.quit determines handling of quits 
1b / uequit = O means do nothing 


/ get here because either u.intr £ 0 or u.quit £ O 


mov 


$tty+6,r1 / move pointer to tty block into r1 


/ find process control tty entry in tty block 


cmp 
beq 
add 
cmp 
blo 
br 


mov 
movb 


ine 


jsr 


Issue D Date 


(r1),uettyp / is this the process control tty buffer? 
1£ / block found go to 1£ 

$8,r1 / look at next tty block 

Ay ae Oa aaa / are we at end of tty blocks 

1b no 


4b / no process control tty found so go to 4b 


$240,*$ps / set processor priority to 5 

-3(r1), Of / load getc call argument; character list 
/ identifier 

Of / increment 


rO,getc; 0:.. / erase output char list for control 
br 4b / process tty. This prevents a line of stuff 
/ being typed out after you hit the interrupt 
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UNIX IMPLEMENTATION 


/ key 
br 1b 
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/ u5 -- unix 


mget: 
mov 
clr 
mov 
mov 
bit 
bne 
bit 
bne 
bic 
mov 
bne 


jsr 
mov 
jsr 
jsr 


rts 
3; / adding on 
jsr 


jsr 
mov 
mov 


mov 
cir 
dec 
bgt 
mov 


clr 

dec . 
bgt 

jsr 

mov 

bis 

jsr 

br 


4: / large file 


mov 
bic 


mov 
mov 


bic 
mov 
bne 


Jsr 


Issue D Date 


UNIX IMPLEMENTATION 


*u.fofp,mq / file offset in mq 

ac / later to be high sig 

$-8,1sh / divide ac/mq by 256. 

mq;,r2 

$10000,i.flgs / lg/sm is this a large or small file 

4f / branch for large file 

$117,r2 A 

3f / branch TEC greater than or equal to 16 

$116,r2 / clear all bits but bits 1,2,3 

i.dskp(r2),r1 / r1 has physical block number 

2f / if physical block num is zero then need a new block 
/ for file 

r0,alloc / allocate a new block 

ri,i.dskp(r2) / physical block number stored in i-node 

rO,setimod / set inode modified byte (imod) 

r0,clear / zero out disk/drum block tust allocated 


ro 
block which changes small file to a large file 
r0,alloc , allocate a new block for this file; block number 
in r1 
rO,wslot / set up I/O buffer for write, r5 points to first 
/ data word in buffer 
$8.,r3 / next 6 instructions transfer old physical block 
/ pointers 
$i.dskp,r2 / into new indirect block for the new large file 


(r2),(r5)* 

(r2)* 

r3 

1b 

$256.-8.,r3 / clear rest of data buffer 


(r5)* 

r3 

1b 

rO,dskwr / write new indirect block on disk _ 

r1,iedskp / put pointer to indirect block in i-node 
$10000,i.flgs / set large file bit in i.flgs word of i-node 
rO,setimod / set i-node modified flag 

mget 


$-8,1sh / divide byte number by 256. 
$1776,r2 / zero all bits but 1,2,3,4,5,6,7,8; gives offset 
./ in indirect block 
r2,-(sp) / save on stack 
mq,r2 / calculate offset in i-node for pointer to proper 
/ indirect block 
$116,r2 
i.dskp(r2),r1 
2£ / if no indirect block exists 
r0,alloc / allocate a new block 
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mov 
jsr 
jsr 


jsr 
mov 
mov 
add 


mov 


bne 
jsr 
mov 


mov 
mov 
jsr 
jer 


mov 
jsr 


tst 
rts 


alloc: 
mov 
mov 
mov 
tst 
beg 
mov 


mov 


asl 
asl 
asl 
mov 
clr 


mov 
bne 
add 
emp 
blo 
jmp 


asr 
bes 


inc 
br 
1: 
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r1,i.dskp(r2) / put block number of new block in i-node 
rO,setimod / set i-node modified byte 
rO,clear / clear new block 


rO,dskrd / read in indirect block 
(sp)*,r2 / get offset 
r1,-(sp) / save block number of indirect block on stack 
r5,r2 / r5 points to first word in indirect block, r2 
/ points to location of inter 
(r2),r1 / put physical block no of block in file 
/ sought in r1 
2f / if no block exists 
rO,alloc / allocate a new block 
r1,(r2) / put new block number into proper location in 
/ indirect block 
(sp)+,r1 / get block number of indirect block 
(r2),-(sp) / save block number of new block 
rO,wslot 
rO,dskwr / write newly modified indirect block back out 
/ on disk 
(sp),r1 / restore block number of new block 
rO,clear / clear new block 


(sp)* / bump stack pointer 
ro 


r2,-(sp) / save r2, r3 on stack 

r3,-(sp) 

$systm,r2 / start of inode and free storage map for drum 

cdev l 

1f / drum is device 

$mount,r2 / disk or tape is device, start of inode and free 
/ storage map 


(r2)*,r1 / first word contains number of bytes in free 
/ storage map 
ri / multiply r1 by eight gives, number of blocks in device 
ri 
r1 
r1,-(sp) / save # of blocks in device on stack 
ri / r1 contains bit count of free storage map 


(r2)*,r3 / word of free storage map in r3 

1f / branch if any free blocks in this word 
$16.,11 

rí,(sp) / have we examined all free storage bytes 
1b 

panic / found no free storage 


r3 / find a free block 


1f / branch when free block found; bit for block k is in 
/ byte k/8 / in bit k (mod 8) 

ri / increment bit count in bit X (mods) 

1b 
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tst 
jsr 
bic 
br 


free: 
mov 
mov 
jsr 


bis 


mov 
mov 
tst 


bne 
incb 
rts 


incb 
rts 


mov 
bic 
cir 
bisb 


mov 
asr 
asr 
asr 
asr 
bcc 


swab 
asi 
add 
tst 


beq 
add 


rts 


byte 


access: 
jsr 


mov 
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UNIX IMPLEMENTATION 


(sp)+ / bump sp 

r0,3f / have found a free block 

r3,(r2) / set bit for this block i.e. assign block 
2f 


r2,-(sp) / save r2, r3 
r3,-(sp) : 
r0,3f / set up bit mask and word no. in free storage map 
/ for block 
r3,(r2) / set free storage block bit; indicates free block 


(sp)+,r3 / restore r2, r3 

(sp)+,r2 

cdev / cdev = 0, block structured, drum; cdev = 1 
/ mountable device 

1f 

smod / set super block modified for drum 

ro 


mmod / set super block modified for mountable device 
ro 


ri, r2 / block number, K, = 1 
$17,r2 / clear all bits but 0,1,2; r2 = (X) mod (8) 


r3 
2£(r2),r3 , use mask to set bit in r3 corresponding to 


(k) mod 8 
r1,r2 / divide block number by 16 
r2 
r2 
r2 
r2 : 
1f / branch if bit 3 in r1 was O i.e., bit for block is in 


/ 
/ lower half of word 
r3 / 


swap bytes in r3; bit in upper half of word in free 
/ storage map 


r2 / multiply block number by 2; r2 = k/8 
$systmt2,r2 / address of word of free storage map for drum 
/ with block bit in it l 

cdev 

1£ / cdev = 0 indicates device is drum 

$mount-systm,r2 / address of word of free storage map for 
/ mountable device with bit of block to be 
/ freed 


rO / return to 'free* 

1,2,4,10,20,40,100,200 / masks for bits 0,...,7 

rO,iget / read in i-node for current directory (i-number 
/ passed in r1) 


i.flgs 9X2 
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cmpb 
bne 
asrb 


asrb 
bit 


bne 

tstb 

beq 

jmp 
13 

rts 


setimod: 
movb 
mov 
mov 
rts 


UNIX IMPLEMENTATION 


i.uid,u.uid / is user same as owner of file 

1£ / no, then branch 

r2 / shift owner read write bits into non owner 
/ read/write bits 

r2 


r2,(rO0)* / test read-write flags against argument in 
/ access call 

1f 

ueuid 

4£ 

error 


ro 


$1, imod / set current icnode modified bytes 
Betime,iemtim / put present time into file modified time 


setimet+2,iemtimt2 


ro 


imap: / get the byte that has the allocation bit for the i-number contained 


/ in ri 
mov 
mov 


sub 
mov 
bic 
mov 


asr 
asr 
asr 


mov 
mov 


tst 
beg 
add 


add 
add 
add 
rts 


iget: 
emp 
bne 
cmp 
beq 


tetb 
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$1,mq / put 1 in the mq 
r1,r2 / r2 now has i-number «hose byte in the map we 
/ must find 
$41.,r2 / r2 has i-41 
r2,r3 / r3 has i-41 
$17,r3 / r3 has (i-41) mod 8 to get the bit position 
r3,lsh / move the 1 over (i-41) mod 8 positions to the left 
/ to mask the correct bit 
r2 
r2 . 
r2 / r2 has (i-41) base 8 of the byte no. from the start of 
/ the map 
r2,-(sp) / put (1-41) base 8 on the stack 
$systm,r2 / r2 points to the in-core image of the super 
/ block for drum 
cdev / is the device the disk 
1f / yes 
$mount-systm,r2 / for mounted device, r2 points to 1st word 
/ of its super block 


(r2)+,(sp) / get byte address of allocation bit 
(sp)+,r2 7 ? 

$2,r2 / ? 

ro 


r1,ii / r41 = i-number of current file 

4f — 

idev,cdev / is device Humber. of i-node - current device 
2f 


imod / has i-node of current file been modified i.e., 
/ imod set 
3/17/72 
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beq 
cirb 
mov 
mov 
mov 
mov 
jsr 
mov 
mov 


tst 
beq 
tst 


bne 
cmp 


bne 
mov 
mov 


mov 
mov 
jer 


mov 
rts 


UNIX IMPLEMENTATION 


1f 

imod / 1f it has, we must write the new i-node out on disk 
r1,-(sp) 

cdev,-(sp) 

ii,r1 

idev,cdev 

rO,icalc; 1 

(sp) +,cdev 

(sp)+,r1 


rt / is new i-number non zero 
2f / branch if r1-0 
cdev / is the current device number non zero (i.e., device 
/ # drum) 
1f / branch if cdev £ 0 
r1,mnti / mnti is the i-number of the cross device 
/ file (root directory of mounted device) 
1£ 
mntd,cdev / make mounted device the current device 
rootdir,r1 


r1,ii 
cdev,idev 
rO,icalc; O / read in i-node ii 


ii,r1 
ro 


icalc: / i-node i is located in block (i*31.)/16. and begins 32.* 
/ (1+31)mod16 bytes from its start 


add 
mov 
asr 
asr 
asr 
asr 


jsr 
tst 
beq 
jsr 


bic 
mov 
mov 
add 
mov 
mov 
tst 
beq 


mov 
dec 
bgt 
jer 
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$31.,r1 / add 31. to i-number 
ri,-(sp) / save i*31. on stack 
ri / divide by 16. 
r1 
r1 
rt / r4 contains block number of block in which 
/ i-node exists l 
quu: / read in block containing i-node i. 
ro 
1f / branch to wslot when arguvent in icalc call = 1 
r0,wslot / set up data buffer for write (will be same buffer 
/ as dskrd got) 


$117,(sp) / zero all but last 4 bits; gives (i+31.) mod 16 
(sp)*,mq / calculate offset in data buffer; 32.*(i+31.)mod16 
$5,1sh / for i-node i. 

mq,r5 / r5 points to first word in i-node i. 

$inode,r1 / inode is address of first word of current i-node 
$16.,r3 - 

(r0)+ / branch to 2f when argument in icalc call = 0 

2f / rO now contains proper return address for rts rO 


(r1)+,(r5)+ / over write old i-node 
r3 

1b 

rO,dskwr / write inode out on device 
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rts 


mov 
dec 
bgt 
rts 


itrunc: 
jer 
mov 
13 
mov 
beg 
mov 
bit 
beq 
mov 
jsr 
mov 


mov 
beq 
mov 
mov 
jsr 
mov 
mov 


dec 
bgt 
mov 


jsr 
mov 


cmp 
bne 
bic 
cir 
jsr 
jsr 
mov 
rts 


UNIX IMPLEMENTATION 


ro 


(r5)+,(r1)+ / read new i-node into "inode" area of core 
r3 
2b 
ro 


rO,iget 
$i.dskp,r2 / address of block pointers in r2 


(r2)*,r1 / move physical block number into r1 

5f 

r2,-(sp) 

$10000,i.flgs / test large file bit? 

4f / if clear, branch 

ri,-(sp) / save block number of indirect block 

rO,dskrd / read in block, 1st data word pointed to by r5 
$256.,r3 / move word count into r3 


(r5)*,r1 / put 1st data word in r1; physical block number 
3f / branch if zero 

r3,-(sp) / save r3, r5 on stack 

r5,-(sp) 

r0,free / free block in free storage map 

(sp)+,r5 

(sp) +,r3 


r3 / decrement word count 
2b / branch if positive 
(sp)+,r1 / put physical block number of indirect block 


r0,free / free indirect block 
(sp)*,r2 


r2,$i.dskp+16. 

1b / branch until all i.dskp entries chec’. 
$10000,i.flgs / clear large fiie bit 

i.size / zero file size y 
r0,copyz; i.dskp; i.dskp*16. / zero block pointers 
rO,setimod / set i-node modified flag 

iiri 

ro 


Issue D Date 3/17/72 ID IMO.1-1 Section E.5 Page 6 


/ u6 -- unix 


UNIX IMPLEMENTATION 


readi: 
clr uenread / accumulates number of bytes transmitted 
tst uecount / is number of bytes to be read greater than 0 
bgt 1f / yes, branch 
rts rO / no, nothing to read; return to caller 
1: l : 
mov ri,-(sp) / save i-number on stack 
cmp r1,$40. / want to read a special file (i-nodes 1,...,40 are 
./ for special files) 
ble 1f / yes, branch 
jmp dskr / no, jmp to dskr; read file with i-node number (r1) 
/ starting at byte ((u.fofp)), read in u.count bytes 
1: 
asl ri / multiply inode number by 2 
jmp *1£-2(r1) 
1: 
rtty  / tty; r1=2 
rppt  / ppt; ri=4 
rmem / mem; r1=6 
rrfO  / rfo 
rrkO  / rkO 
rtap  / tapO 
rtap  / tapi 
rtap  / tap2 
rtap  / tap3 
rtap  / tap4 
rtap  / tap5 
rtap  / tap6 
rtap  / tap7 
rcvt / ttyO 
rcvt / ttyl 
rcvt  / tty2 
rcvt  / tty3 
rcvt / tty4 
rcvt  / tty5 
rcvt / tty6 
rcvt  / tty7 
rcrd/ crd 


rtty: / read from console tty 


mov 
tst 
bne 
jsr 
tst 
beq 


movb 
inc 
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tty+[8*ntty]-8+6,r5 / r5 is the address of the 4th word of 
/ of the control and status block . 
2(r5) / for the console tty; this word points to the console 
/ tty buffer 
1f / 2nd word of console tty buffer contains number 
/ of chars. Is this number non-zero? 
rO,canon; ttych / if 0, call “canon” to get a line 
l / (120 chars.) 


2(r5) / is the number of characters zero 

reti! / yes, return to caller via *ret1” 

*4(r5),r1 / no, put character in r1 

4(r5) / 3rd word of console tty buffer points to byte which 
/ contains the next char. 
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reti: 


rppt: / 


rmem: / 


UNIX IMPLEMENTATION 


dec 2(r5) / decrement the character count 

jsr rO,passc / move the character to core (user) 
br 1b / get next character 

imp . ret / return to caller via ‘ret’ 


read paper tape 
jsr r0,pptic / gets next character in clist for ppt input and 
/ places 
br ret / it in r1; if there is no problem with reader, it 
/ also enables read bit in prs 


jsr rO,passc / place character in users buffer area 

br rppt 

transfer characters from memory to a user area of core 

mov *tu.fofp,ri / save file offset which points to the char to 
/ be transferred to user 

inc *u.fofp / increment file offset to point to 'next' char in 


/ memory file 
movb (11),r1 / get character from memory file, put it in r1 


jsr rO,passc / move this character to the next byte of the 
/ users core area 

br rmem / continue 

jmp error / see *error” routine 

mov (sp),r1 / i-number ín r1 

jsr rO,iget / get i-node (r1) into i-node section of core 


mov i.size,r2 / file size in bytes in r2 

sub *u.fofp,r2 / subtract file offset 

blos ret ' . 
cmp r2,u.count / are enough bytes left in file to carry out read 
bhis 1£ 

mov r2,u.count / no, just read to end of file 


jsr r0,mget / returns physical block number of block in file 
/ where offset points 

jsx rO,dskrd / read in block, r5 points to 1st word of data in 
/ buffer 

jsr rO,sioreg 


movb (r2)+,(r1)+ / move data from buffer into working core 
/ starting at u.base 


dec r3 

bne 2b / branch until proper number of bytes are transferred 
tst u.count / all bytes read off disk i 

bne dskr 


br ret 


passc: 


Issue D 


movb r1,*u.base / move a character to the next byte of the 
/ users buffer 
inc u.base / increment the pointer to point to the next byte 
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ine 
dec 
bne 
mov 


ret: / (1 Y pop 
mov 

13 
clr 
rts 


writei: 
clr 


tst 
bgt 


rts 


mov 
emp 
bgt 
asl 
jmp 


wtty 
wppt 
wmem 
wrfO 
wrko 
wtap 
wtap 
wtap 
wtap 
wtap 
wtap 
wtap 
wtap 
xmtt 
xmtt 
xmtt 
smtt 
xmtt 
xmtt 
xmtt 
xmtt 
/ wipr / 


jsr 


tst 
beq 


mov 
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O 
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UNIX IMPLEMENTATION 


/ in users buffer 
uenread / increment the number of bytes read 
u.count / decrement the number of bytes to be read 
1£ / any more bytes to read?; yes, branch 
(sp)*,rO / no, do a non-local return to the caller of 


the return address off the stack into rO 
(sp)*,r1 / (2) pop the i-number off the stack into r1 


*sps / clear processor status 
rO / return to address currently on top of stack 


u.nread / clear the number of bytes transmitted during 
/ read or write calls 

u.count / test the byte count specified by the user 

1f / any bytes to output; yes, branch 

rO / no, return - no writing to do 


r1,-(sp) / save the i-node number on the stack 

r1,$40. / does the i-node number indicate a special file? 
dskw / no, branch to standard file output 

r1 / yes, calculate the index into the special file 
*4f-2(r1) / jump table and jump to the appropriate routine 


/ tty 
ppt 
mem 
río 
rko 
tapo 
tapı 
tap2 
tap3 
tap4 
tap5 
tapó 
tap7 
ttyO 
tty1 
tty2 
tty3 
tty4 
tty5 
tty6 
tty7 


rO,cpass / get next character from user buffer area; if 
/ none go to return address in syswrite 

rt / is character = null 

wtty / yes, get next character 


$240,*$ps / no, set processor priority to five 
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cmpb 


bhis 
jsr 


jsr 
br 


mov 
jsr 
mov 
br 


wppt: 
jsr 


jsr 
br 


N 
£ 
H 
ye 
K 


jsr 
cmp 
blo 
emp 
bhi 
sub 


-— 
.. 


jsr 
br 


poo ooo 


z 
H 
0 
> 


jsr 
mov 
mov 
inc 
movb 


br 


jmp 


UNIX IMPLEMENTATION 


cc*1,$:0. / is character count for console tty greater 
/ than 20 
2f / yes; branch to put process to sleep 
rO,putc; 1 / find place in freelist to assign to console 
/ tty and 
br 2f / place character in list; if none available 
/ branch to put process to sleep 
rO,startty / attempt to output character on tty 
wtty 


r1,-(sp) / place character on stack 

rO,sleep; 1 / put process to sleep 

(sp)*,r1 / remove character from stack 

1b / try again to place character in clist and output 


rO,cpass / get next character from user buffer area, 
/ if none return to writei's calling routine 

rO,pptoc / output character on ppt 

wppt 


r0,Cpass 
r0,$ a 


: / transfer characters from a user area of core to memory file 


rO,cpass / get next character from users area of core and 
/ put it in r4 

r1,-(sp) / put character on the stack 

*u.fofp,ri / save file offset in r1 

*u.fofp / increment file offset to point to next available 
/ location in file 

(sp)+,(r1) / pop char off stack, put in memory loc assigned 

/ to it 
wmem / continue 


error / ? 


dskw: / write routine for non-special files 


mov 
jsr 


mov 
add 
. emp 
blos 
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(sp),r1 / get an i-node number from the stack into r1 
rO,iget / write i-node out (if modified), read i-node 'r1' 


/ into i-node area of core 
*u.fofp,r2 / put the file offset [(u.off) or the offset in 
/ the fsp entry for this file] in r2 
u,.count,r2 / no. of bytes to be written + file offset is 
/ put in r2 


. r2,1.size / is this greater than the present size of 


/ the file? 
4f / no, branch 
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mov r2,i.size / yes, increase the file size to file offset + 
/ no. of data bytes 
jsr rO,setimod / set imod=1 (i.e., core inode has been 
/ modified), stuff time of modification into 
/ core image of i-node 


1: 
jsr rO,mget / get the block no. in which to write the next data 
, byte 
bit *u.fofp,$777 / test the lower 9 bits of the file offset 
bne 2f / if its non-zero, branch; if zero, file offset = 0, 


/ 512, 1024,...(i.e., start of new block) 
cmp u.count,$512. / if zero, is there enough data to fill an 
/ entire block? (i.e., no. of 
bhis 3f / bytes to be written greater than 512.? Yes, branch. 
/ Don't have to read block 
2: / in as no past info. is to be saved (the entire block will be 


/ overwritten). 


+ + 


jsx rO,dskrd / no, must retain old info.. Hence, read block ri 
/ into an I/O buffer 
3: 
jsr r0,wslot / set write and inhibit bits in I/O queue, proc. 
/ status=0, r5 points to 1st word of data 
jsr rO,sioreg / r3 = no. of bytes of data, ri = address of data, 


/ r2 points to location in buffer in which to 
/ start writing data 


21 l 
movb (r1)+,(r2)+ / transfer a byte of data to the I/O buffer 
dec r3 / decrement no. of bytes to be written 
bne 2b / have all bytes been transferred? No, branch 
jsr r0,dskwr / yes, write the block and the i-node 
tst u.count / any more data to write? 
bne 1b / yes, branch 
jmp ret / no, return to the caller via ‘ret’ 


cpass: / get next character from user area of core and put it in r1 
tst u.count / have all the characters been transferred (ises, 
/ uecount, # of chars. left 
beq 1f / to be transferred = 0?) yes, branch 


dec u.count / no, decrement u.count 
movb *tu.base,rt / take the character pointed to by u.base and 
/ put it in r1 
inc u.nread / increment no. of bytes transferred 
inc u.base / increment the buffer address to point to the 
rts rO / next byte 
1: ' 
mov (sp)+,r0 / put return address of calling routine into rO 
mov (sp)+,r1 / i-number in r1 
rts ro / non-local return 


sioreg: 

mov *u.fofp,r2 / file offset (in bytes) is moved to r2 

mov r2,r3 / and also to r3 

bis $177000,r3 / set bits 9,...,15. of file offset in r3 

bic $1777,r2 / calculate file offset mod 512. 

add r5,r2 / r2 now points to 1st byte in system buffer where 
/ data is to be placed 
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mov 
neg 


cmp 
blos 


mov 


adá 
sub 
add 
add 


rts 


UNIX IMPLEMENTA? ION 


u.base,r! / address of data is in r1 
x3 / 512 - file offset (mod512. ) in r3 (i.e., the number 
/ of free bytes in the file block 
r3,u.count / compare this with the number of data bytes to 
/ be written to the file 


2f / if less than branch. Use the number of free bytes 


/ in the file block as the number to be written 

u.count,r3 / if greater than, use the number of data bytes 
/ as the number to be written 

r3,u.nread / r3 * number of bytes xmitted during write is 

/ put into u.nread 

r3,u.count / u.count = no. of bytes that still must be 

/ written or read 

r3,u.base 4 usbase points to the 1st of the remaining data 
bytes 

r3,*u.fofp / new file offset = number of bytes done + old 
/ file offset 

ro 
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/ «7 -- unix 


canons 
mov r5,xr1 / move tty buffer address to r1 
add $10.,r1 / add 10 to get start of data 
mov ri,4(r5) / canp = 10(r5) / move buffer a?2dr + 10 to 3rd 
/ word in buffer (char. pointer) 


clr 2(r5) / ncan / clear 2nd word in buffer, O char. count 
1: 
jsr rO,*(rO) / jump to arg get char off Q of characters, sleep 
/ if none 


jsr r0,cesc; 100 / test for € (kill line) 
br canon / character was 8 so start over 

jsr rO,cesc; 43 / test for # (erase last char. typed) | 

br 1b / character was #, go back 

cmp rb,s4 / is char eot? 

beq 1f / yes, reset and return 

movb r1,*4 r5) / no, move char to address in 3rd word of buffer 
(char. pointer) 


inc 2(r5) / increment 2nd word (char. count) 
inc 4(r5) / increment 3rd word (char. pointer) 
emp r1,$°\n / is char = newline 


beq 1f / yes, 1f 
cmp 2(r5),$120. / is byte count greater than or equal to 120 
bhis 1f / yes, 1f 
br 1b / no, get another char off the Q 

1: / get here if line is full, a new line has been received or an eot 

/ has been received 

mov r5,r1 / move buffer address to r1 
add $10.,r1 / add 10 
mov r1,4(r5) / canp = 10(r5) / reset char pointer 


tst (r0)+ / skip over argument 
rts rO / return 
cesc: / test for erase or kill char 
cmp ri,(rO)* / char in ri = erase or kill character? 
bne 1f / no, skip return 
tst 2(r5) / yes, is char. count = 0 
beq 2£ / yes, don’t skip return 
dec 2(r5) / no, decrement char count 
dec 4(r5) / decrement character pointer 


cmpb sales), $’\\/ was previous character ae 
bne 2f / no, don't skip 


tst (r0)+ / yes, skip 
2t 
rts rO / return 
io^ 
ttych: / get characters from Q of characters inputted te tty 
mov $240,*$ps / set processor priority to 5 


jsr rO,getc; O / takes char. off clist and puts it in ri 
br 1f / list is empty, go to sleep 
cir *$ps / clear process priority 
rts rO / return 
1: / list is empty 
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mov 
jsr 
mov 
br 


pptic: / paper 
mov 
cmpb 


bhis 
bit 


bne 
inc 


jsr 
tst 


cir 
rts 


cmpb 
beq 


jsr 
br 


pptoc: / paper 
mov 
cmpb 


bhis 
jsr 


jsr 
cir 
rts 


mov 
jsr 
mov 
br 


/lptoc: / line 
/ mov 

/ cmpb 
/ bhis 

/ jsr 


Issue D Date 


UNIX IMPLEMENTATION 


r5,-(sp) / save r5 

r0,sleep; O / put process to sleep in input wait channel 
(sp)+,r5 / restore r5 

ttych / try again 


tape input control 

$240,*$ps / set processor priority to five 

cc+2,$30. / is character count for paper tape input in 

/ clist greater than or equal to 30 

1f / yes, branch 

*éprs, 6104200 / is there either an error, an unread char 
/ in buffer, or reader busy 

1f / yes, don't enable reader 

*sprs / set reader enable bit 


rO,getc; 2 / get next character in clist for ppt input and 
br 1f 7. "place in ri; if no char in clist for ppt input 
/ branch 
(r0)+ / pop stack so that return will be four locations past 
/ subroutine call 


*sps / set process priority equal to zero 
rO / return 


pptiflg,$6 / does pptiflg indicate file "not closed" 
2b / yes, return to calling routine at instruction 
/ immediately following jsr 
r0,sleep; 2 / no, all characters to be read in not yet in 
/ clist, put process to sleep 
pptic 


tape output. control 

$240,*$ps / set processor priority to five. 

cc+3,$50. / is character count for paper tape output in 
us / clist greater than or equal to 50 

1f 


ro bate: 3 / fina place in freelist to assign ppt output 
/ aná place 
br 1£ / character in list; if none available branch to put 
/ process to sleep 
rO,starppt / try to output character 
*3ps / clear processor priority 
rO / return 


ri,-(sp) / place character on stack 

r0,sleep; 3 / put process to sleep 

(sp)*, rt / place character in r1 

pptoc / try again to place character in clist and output 


printer output control 
$240,*$ps / set processor priority to five 
cct5,$200. / is character count for printer greater than or 
/ equal to 200 
1f / yes 
rO,putc; 5 / find place in freelist to assign to printer 
and place 
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eo 


* 


[t] 
d 
Q 

e 


putc: 


get: 


2: 


jsr 
clr 
rts 


mov 
jsr 
mov 
br 


UNIX IMPLEMENTATION 


br 1f / char in list, if none available branch to put 
/ process to sleep 


 rO,starlpt / try to output character 


*sps / set processor priority = 0 
rO / return 


ri,-(sp) / place character on stack 
rO,sleep; 5 / put process to sleep 
(sp)+,r1 / place character on stack 
lptoc 


get a character off character list 


mov 
jsr 


decb 
mov 
jsr 
movb 
tst 


rts 


mov 
mov 
jsr 


mov 
incb 
jsr 

movb 


tst 
mov 
rts 


movb 
beq 
tst 
cmpb 
beq 
bic 
asl 
movb 


br 
clrb 
clrb 
bic 
asl 


rts 


Issue D Date 


(r0)+,r1 / put argument in getc call in r1 (char list id) 
rO,get l : 

br 1f / empty char list return 

cc(ri) / decrement number of char in char list 

$-1,r1 / load minus 1 in r1 

rO,put / put char back on free list 

clist-2(r2),r1 / put char in ri 

(ro)+ / bump rO for non blank char list return 


ro 


ri,-(sp) / save char on stack 
$-1,r1 / put free list list id in r1 
rO,get / take char off free list / clist slot taken 
'/ identified by r2 
br 1f / branch when no chars in free list 
(ro)+,r1 / put pute call arg in ri (i.e., list identifier) 
cc(ri1) / increment character count for list (ri) 
rO,put / put clist entry on list 
(sp),clist-2(r2) / put character in new entry 


(ro)+ 
(sp)+,r1 
ro 


cf+1(r1),r2 / move current first char offset to r2 

2f / no characters in char list 

(r0)+ / bump rO, second return 

r2,cl*1(ri) / r2 equal to last char offset 

1£ / yes, (i.e., entire char list scanned), branch to 1f 

$1377,r2 / clear bits 8-15 in r2 

r2 / multiply r2 by 2 to get offset in clist 

clist-=1(r2),cf£+1(r1) / move next char in list pointer to 
/ first char offset ptr 

2f 


cf+1(r1) / clear first char clist offset 
cl+i(r1) / clear last char clist offset 
$1377,r2 / zero top half of r2 

r2 / multiply r2 by 2 

ro 
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put: 
asr 
mov 
movb 
beq 
bic 
asl 
movb 


br 


mob 


mov 
movb 
asl 


rts 
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re, divide r2 by 2; r2 is offset in clist 
r2,-(sp) / save r2 on stack 
cl+i(r1),r2 / move offset of last char in list (r1) into r2 
1£ / offset = 0 then go to 1f (i.e., start a new list) 
$1377,r2 / zero top half of r2 
r2 / multiply offset by 2, r2 now has offset in clist 
(sp),clist-1(r2) / link new list entry to current last 

/ entry in list (r1) 
2f 


(sp),cf*1(r1) / put new list entry offset into first char 
/ offset of list (r1) 


(sp)*,r2 / pop stack into r2; offset of new list 
entry in r2 
r2,c1+1(r1) / make new list entry the last entry in list 


ri 
r2 / multiply r2 by 2; r2 has clist offset for new 
/ list entry 
ro 


iopen: / open file whose i-number is in r1 


tst 
blt 
jsr 
cmp 
bgt 
mov 
asl 
jmp 


otty 
oppt 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 
ocvt 


ri / write or read access? 

2f / write, go to 2f 

rO,access; 2 / get inode into core with read access 
r1,$40. / is it a special file 

3f / no, 3f 

r1,-(sp) / yes, figure out 


ri 

*1£-2(1r1) / which one and transfer to it 
tty 

ppt 

mem 


OM 
RS 
AM 
O th 
o 


tapo 
tap1 
tap2 
tap3 
tap4 
taps 
tap6 
tap7 
ttyO 
tty1 
tty2 
tty3 
tty4 
tty5 
tty6 
tty7 


MAA AAR RAR DD o 


error / crd 
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2: / check open write access 


neg r1 / make inode number positive 
jsr rO,access; 1 / get inode in 0 core 
bit $40000,i.flgs / is it a directory? 
bne 2f / yes, transfer (error) 
cmp r1,840. / no, is it a special file? 
bgt 3£ / no, return 
mov 21 ,-(sp) / yes 
asl r1 
jmp #4£-2(r1) / figure out which special file it is 
/ and transfer 
1: 
otty / tty 
leadr / ppt 
sret / mem 
sret / rfO 
sret / rko 
sret / tapo 
sret / tapi 
sret / tap2 
sret / tap3 
sret / tap4 
sret / tap5 
sret / tap6 
sret / tap7 
ocvt / ttyO 
ocvt / tty! 
ocvt / tty2 
ocvt / tty3 
ocvt  / tty4 
ocvt  / tty5 
ocvt  / tty6 
ocvt  / tty7 
/ ejec / lpr 
otty: / open console tty for reading or writing 
mov $100,*$tks / set interrupt enable bit (zero others) in 
/ reader status reg 
mov $100,*stps / set interrupt enable bit (zero others) in 
/ punch status reg l i 
mov tty+[ntty*8]-8+6,r5 / r5 points to the header of the 
/ console tty buffer 
incb (r5) / increment the count of processes that opened the 
/ console tty 
tst u.ttyp / is there a process control tty (i.e., has a tty 
/ buffer header 
bne sret / address been loaded into u.ttyp yet)? Yes, branch 
mov r5,u.ttyp ^ no, make the console tty the process control 
tty 
br sret / ? 
sret: 
cir *sps / set processor priority to zero 
mov (sp)+,r1 / pop stack to r1 
33 
i rts ro 
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oppt: / open paper tape for reading or writing 


mov 
tstb 
bne 


mov 
jsr 


br 

movb 

movb 

br 
2: 

jmp 


$100,*$prs / set reader interrupt enable bit 
pptiflg / is file already open 
2£ / yes, branch 


$240,*sps / no, set processor priority to 5 

rO,getc; 2 / remove all entries in clist 

br .*4 / for paper tape input and place in free list 
1b 

$2,pptiflg / set pptiflg to indicate file just open 
$10.,toutt*1 / place 10 in paper tape input tout entry 
sret 


error / file already open 


iclose: / close file whose i-number is in r1 


tst 
blt 
cmp 
bgt - 
mov 
asl 


jmp 


ctty 
cppt 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
sret 
ecvt 
ccvt 
ecvt 
ecvt 
ccvt 
ccvt 
ccvt 
ccvt 


rt / test i-number 

2£ / if nege, branch 

r1,$40. / is it a special file 
3b / no, return 

ri,-(sp) / yes, save r1 on stack 


r1 . 
*1£-2(1r1) / compute jump address and transfer 


tty 

ppt 

mem 

rfo 

rko 

tapo 
tapi 
tap2 
tap3 
tap4 
tap5 
tape 
tap7 
ttyO 
tty1 
tty2 
tty3 
tty4 
tty5 
tty6 
tty7 


m 


error / cra 


2: / negative i-number ` 


neg 

cmp 

bgt 

mov 

asl 

jmp 
1: 
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ri / make it positive > 

r1,$40. / is it a special file 

3b / no, return 

r1,-(sp) 

rt / yes, compute jump address and transfer 
*4f-2 r1) 
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ctty / tty 

leadr / ppt 

sret / mem 

sret  / rfO 

sret  / rkO 

sret / tapo 
sret / tapi 
sret / tap2 
sret  / tap3 
sret / tap4 
sret / tap5 
sret  / tap6 
sret  / tap7 
ccvt / ttyO 
ccvt / ttyl 
ccvt / tty2 
ccvt / tty3 
ccvt / tty4 
ccvt  / tty5 
ccvt / tty6 
ccvt / tty7 

/ ejec / lpr 


ctty: / close console tty 


mov 
decb 
br 


tty+[ntty*8]-8+6,r5 / point r5 to the console tty buffer 
(r5) / dec number of processes using console tt: 
sret / return via sret 


cppt: / close paper tape 


cirb 
13 

mov 

jer 


br 
/ 
/ mov 
/ mov 
/ jsr 
/ br 


pptiflg / set pptiflg to indicate file not open 


$240.*$ps / set process or priority to 5 


.rO,getc; 2 / remove all ppt input entries from clist 


/ and assign to free list 
br sret 
1b 


$100,*81ps / set line printer interrupt enable bit 
$14,r1 / 'form feed' character in r1 (new page). 
rO,lptoc / space the printer to a new page 

sret / return to caller via 'sret' 


leadr: / produce paper tape leader 


mov 
mov 


clr 
jsr 
dec 
bge 
tst 
br 


$100,*$pps / set paper tape punch interrupt enable 
$100.,-(sp) / 101. characters of ‘nul’ will be output as 
/ leader 


ri / r1 contains a ‘nul’ character 
E / output the 'nul' character 
sp) 
1b / last leades character output? no, branch 
(sp)+ / bump stack pointer 
sret / return to caller via 'sret' 


sysmount: / mount file system; args special; name 
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jsr 
tst 
bne 
jer 
mov 


mov 
jsr 


mov 
tstb 


bne 
mov 
movb 


mov 
bis 
jsr 


tstb 
bne 
br 


UNIX IMPLEMENTATION 


rO,arg2 / get arquments special and name 

mnti / is the i-number of the cross device file zero? 

crrora / no, error 

rO,getspl / get special files device number in rf 

(35 e anin / put the name of file to be placed on the 
/ device . 

r1,-(sp) / save the device number 

rO,namei / get the i-number of the file 

br errora 

ri,mnti / put it in mnti 


sb1+1 / is 15th bit of I/O queue entry for dismountable 
/ device set? 
1b / (inhibit bit) yes, skip writing 
(sp),mntd / no, put the device number in mntd i 
(sp),sb1 / put the device number in the lower byte of the 
/ I/O queue entry 
(sp)+,cdev / put device number in cdev 
$2000,sb1 / set the read bit 
rO,ppoke / read in entire file system sapor block 


sb1+1 / done reading? 
1b / no, wait 
sysrota / yes 


sysumount: / special dismount file system 


jsr 
jsr 
cmp 
bne 


tstb 


bne 
clr 
clr 
br 


rO,arg; uenamep / point u.namep to special 
rO,getspl / get the device number in r1 l 
ri,mntd / is it equal to the last device mounted? 
errora / no error 


sb1+1 / yes, is the device still doing I/O (inhibit 
/ bit set)? 

1b / yes, wait 

mntd / no, clear these 

mnti E 

sysreta / return 


getspl: / get device number from a special file name 


jsr 


sub 
ble 
cmp 


bgt 


rts 


erroras 
jmp 


Sysreta; 
jmp 
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rO,namei / get the i-number of the special file 


br errora / no such file 

$4,r1 / i-number-4 rk=1,tap=2+n 
errora / less than 0? yes, error 
11,5%. / greater than 9 tap 7 
errora / yes, error 

rO / return with device number in r1 


error / see ’error’ routine 


sysret / see ‘sysret’ routine 
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/ ug =- unix 


rtap: / read from the dec tape 
asr rt / divide the i-number by 2 
sub $4.,r1 / (i-number/2)-4 r1 
mov rt, cóev / cdev now has device number 
jex | rO,bread; 578. / read in block thats in *u.fofp 


wtap: p 
asr ri / divide i-number by 2 l 
sub $4.,r1 / ri = i-number minus 4 
mov rí,cdev / this is used as the device number 
jsr rO,bwrite; 578. / write block (u.fofp) on dec tape 
/ Maximum 
rrkO: 
mov $1,cdev / set current device to i., disk 
jer rO,bread; 4872. / read block from disk (maximum block 
/ number allowed on 'evice is 4872.) 
/ - (u.fofp) contains block number 
wrkOo: 
mov $1,cdev / set current device to 1; disk 
jsr rO,bwrite; 4872. / write block (u.fofp) on disk 
rrfo: 
cir cdev / set current device to O., fixed head disk 
jer rO,bread; 1024. / read block (u.fofp) from fixed head 
/ disk (max. block number allowed on 
/ device is 1024.) 
wrfO: 


cir cdev / set current device to 0., fixed head disk 
jer rO,bwrite; 1024. / write block '(u.fofp)' on fixed head 


/ disk 
bread: / read a block from a block structured device 
jsr rO,tstdeve ^ a on special file 1/0 (only works on 
tape 
mov *u.fofp,ri / move block number to r1 


mov $2.-cold,-(sp) / .2-cold to stack 


cmp r1,(r0) / is this block # greater than or equal to 
: / maximum block # allowed on device 
bhis 1f / yes, 1f (error) 


mov r1,-(sp) / no, put block # on stack 

jsr rO,preread / read in the block into an I/O buffer 

mov (sp)*,ri1 / return block # to r1 

inc rt / bump block # to next consecutive block 

dec (sp) / 2-1-cold on stack 

bgt 2-1-cold = 0? No, go back and read in next block 


1b / 
tst (sp)* / yes, pop stack to clear off cold calculation 
mov #u.fofp,ri / restore r1 to initial value of the 

/ block £ 
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cmp r1,(r0)+ / block # greater than or equal to maximum 
/ block number allowed 
bhis  error10 / yes, error 


inc *u.fofp / no, *u.fofp has next block number 

jer rO,preread / read in the block whose number is in r1 

bis $40000,(r5) / set bit 14 of the 1st word of the I/O 
f / buffer 


bit $22000,(r5) / are 10th and 13th bits set (read bits) 
beq 1f / no 

cmp cdev,$1 / disk or drum? 

ble 2f / yes 

tstb uquant / is the time quantum = 0? 

bne 2f / no, 2f 


mov r5,-(sp) / yes, save r5 (buffer address) 

jsr r0,sleep; 31. / put process to sleep in channel 31 (tape) 
mov (sp)*,r5 / restore r5 

br 1b / go back 


2: / drum or disk 
jsr r0,idlez s.wait*2 / wait 
, br 1b 
1: / 10th and 13th bits not set 
bic $40000,(r5) / clear bit 14 


jsr rO,tstdeve / test device for error (tape) 
add $8,r5 / r5 points to data in I/O buffer 
jsr rO,dioreg / do bookkeeping on u.count etc. 
1: / r5 points to beginning of data in I/O buffer, r2 points to beginning 
/ of users data 
movb (r5)*,(r2)* / move data from the I/O buffer 
dec r3 / to the user's area in core starting at u.base 
tst uscount / done 
beq 1f / yes, return. 
tst -(rO) / no, point rO to the argument again 
br bread / read some more 
1: 
mov (sp)*,rO / jump to routine that called readi 
jmp ret 
bwrite: / write on block structured device 
jsr rO,tstdeve / test the device for an error 
mov *u.fofp,ri / put the block number in rf 
cmp rt,(ro0)+ / does block number exceed maximum allowable f 
bhis  errori0 / yes, error 
inc *u.fofp / no, increment block number 


jsr rO,wslot / get an I/O buffer to write into 
jsr rO,dioreg / do the necessary bookkeeping 
1: / r2 points to the users data; r5 points to the I/O buffers data area 
movb (r2)*,(r5)* / 3 r3, has the byte count 
dec r3 / area to the I/O buffer 


bne 1b 
jsr rO,dskwr / write it out on the device 
tst u.count / done 


beq 1f / yes, 1f 
tst -(rO) / no, point rO to the argument of the call 
br bwrite / go back and write next block 

4: 
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mov 
jmp 


UNIX IMPLEME: TATION 


(sp)*,rO / return to routine that called writei 
ret 


tstdeve: / check whether permanent error has occured on special file 


/ 1/O 


mov 
tstb 
bne 
rts 


clrb 


error10: 
jmp 


dioreg: 
mov 
cmp 
blos 
mov 
1: 
mov 
add 
sub 
add 
rts 


preread: 
jsr 


bis 
jsr 


clr 
rts 


dskrd: 
jsr 


bis 
jsr 
cir 
bit 
beq 
jsr 
br 

add 
xts 


wslot: 
jer 
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cdev,r1 / only works on tape; ri has device # 
deverr(r tí) / test error bit of device 

1f / error 

rO / device okay 


deverr(r1) / clear error 


error / see 'error' routine 


u.count,r3 / move char count to r3 
r3, $512» / more than 512. char? 
1f '"/ no, branch 

$512.,r3 / yes, just take 512. 


u.base,r2 / put users base in r2 
r3,u.nread / add the number to be read to denread 
r3,u.count / update count 

r3,u.base / update base 

rO / return 


rO,bufaloc / get a free I/O buffer (r1 has block number) 
br 1f / branch if block already in a I/O buffer 
$2000,(r5) / set read bit (bit 100 in I/O buffer) 
r0,poke / perform the read 


*sps / ps = 0 
ro 


rO,bufaloc / shuffle off to bufaloc; get a free I/O buffer 
br 1f 
$2000,(r5) / set bit 10 of word 1 of I/O queue entry 
/ for buffer 
r0,poke / just assigned in bufaloc; bit 10=1 says real 


+ 


$ps 
$22000,(r5) / if either bits 10, or 13 are 1; jump to idle 
1£ 
rO,ídle; s.wait+2 
1b 


$8,r5 / r5 points to first word of data in block just read 
in 
ro 


rO,bufaloc / get a free I/O buffer; pointer to firct 
br 1f / word in buffer in r5 
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bit 
beq 
jsr 
br 
bis 


cir 
add 


rt: 


dskwr: 
bic 


ppoke; 
mov 
jsr 
clr 
rts 


pokes 
mov 
mov 
mov 
mov 


mov 
bit 


beq 
bit 
bne 
movb 
tstb 
beg 
mov 
clrb 
br 


cmpb 
blt 
bgt 


bit 
bne 
bis 
mov 
mov 
mov 
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$22000,(r5) / check bits 10, 13 (read, waiting to read) 
/ of I/O queue entry 
1£ / branch if 10, 13 zero (i.e., not reading, or waiting 
/ to read) 
rO,idle; s.wait*2 / if buffer is reading or writing to reac, 
, / idle 
1b / till finished 


$101000,(r5) / set bits 9, 15 in 1st word of I/O queue 
(write, inhibit bits) 
*&ps / clear processor status 
$8,r5 / r5 points to first word in data area for this 
/ block 


.rO 


$100000,*bufp / clear bit 15 of I/O queue entry at 
/ bottom of queue 


$340 ,*$ps 
rO,poke 
*$ps 

ro 


r1,-(sp) 

r2,-(sp) 

r3,-(sp) : 

$bufp+nbuf+nbuf+6,r2 / r2 points to highest priority I/O 
/ queue pointer : 


-(r2),r1 / r1 points to an I/O queue entry 

$3000 ,(r1) j test bits 9 aná 10 of word 1 of I/O queue 
entry 

2f / branch to 2f if both are clear 

$130000,(r1) / test bits 12, 13, and 15 

2f / branch if any are set 

(x1),r3 / get device id 

deverr(r3) / test for errors on this device 

3f / branch if no errors 

$-1,2(r1) / destroy associativity 

1(r1) / do not do I/O 

2f 


r3,$1 / device id - 1; device is disk 
prf / device id = 0; device is drum 
ptc / device 1d greater than or equal to 1; device is 
/ dec tape 
$2,active / test disk busy bit 
2f / branch if bit is set 
$2,active / set disk busy bit | 
ri,rkap / rkap points to current I/O queue entry for disk 
2(r1),mq / put physical block number in mq 


$12.,div / divide physical block number by 12. 
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mov 
mov 


mov 


bis 
br 
prf: / drum 
bit 
bne 
bis 
mov 
mov 
clr 


movb 


clr 
movb 


mov 


mov 
mov 
mov 
mov 


. bit 


beq 
mov 


mov 
br 
ptc: / tape 
bit 
bne 
mov 
swab 
bic 
add 
cmpb 
beq 
movb 


bis 
mov 
mov 
mov 
movb 
sub 
swab 
bis 
mov 


UNIX IMPLEMENTATION 


I/O 


$rkda+2,r3 / 
ac,-(sp) / put remainder from divide on stack; gives 
/ sector number 
$4,1sh / shift quotient 4 bits, to align with cyl and surf 
/ bits in rkda 
mq» (sp) / or mq with sector; gives total disk address 
3f i 
$1,active / test drum busy bit 
2f / branch if bit is set 
$1 active / set drum busy bit 
r1,rfap / rfap points to current I/O queue entry for drum 
$daet2,r3 
-(sp) 
2(r1),1(sp) / move low byte of physical block number into 
/ high byte of stack 
-(sp) / worá 
3(r1), (sp) / move high byte of physical block number into 
| / low byte of stack 
(sp)*,-(r3) / load dae with high byt . of physical block 
/ number 
(sp)*,-(r3) / load rkda register; load dar register 
6(ri),-(r3) / load bus address register 
4(r1),-(r3) / load word count register 
$103,-(sp) / 103 indicates write operation when loaded 
/ in csr 
$2000,(r1) / if bit 10 of word 1 of I/O queue entry is 
a one 
3f / then read operation is indicated 
$105,(sp) / 105 indicates read operation 
(sp)+,-(r3) / load csr with interrupt enabled, command, go 
seta 
$4,active 
2f 
tccm,r3 
r3 i 
$17,r3 
$2,r3 
r3,(r1) 
3f 
$1,tccm / stop transport if not same unit 
$4,active 
r1,tcap 
$20.,tcerre 
$tapei,tcstate 
(x1),r3 / device 
$2,r3 / now unit 
r3 
$103,r3 / now rbn,for,unit,ie 
r3,tccm 


seta: / 1/0 queue bookkeeping; set read/write waiting bits. 


mov 
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(r1),r3 / move word 1 of I/O queue entry into r3 
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bic 
bic 
rol 
rol 
rol 


bis 


cmp 


bhi 
mov 
mov 
mov 
rts 


bufaloc: 
mov 
mov 
clr 
mov 


mov 


bit 
bne 


mov 


cmpb 


bne 
cmp 


bne 
tst 
br 


cmp 
blo 


mov 
bne 


jsr 
br 


tst 


mov 


movb 


mov 
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$13000,r3 / clear all bits except 9 and 10 

$3000,(r1) / clear only bits 9 and 10 

r3 

r3 

r3 

r3,(r1) / or old value of bits 9 and 10 with bits 12 
/ and 13 


r2,$bufp / test to see if entire I/O queue has been 
/ scanned 

1b 

(sp)+,r3 

(sp)*,r2 

(sp)+,r1 

ro 


r2,-(sp) / save r2 on stack 
$340,*$ps / set processor priority to 7 


-(sp) / vacant buffer 
$bufp,r2 / bufp contains pointers to I/O queue entrys 
/ in buffer area 


(12)+,r5 / move pointer to word 1 of an I/O queue entry 
into r5 l 
$173000,(r5) / locktkeeptactivetoutstanding 
3f / branch when any of bits 9,10,12,13,14,15 are set 
/ (i.e., buffer busy) 
r2,(sp) / save pointer to last non-busy buffer found 
points to word 2 of I/O queue entry) 


(x5),cdev / is device in I/O queue entry same as current 
/ device 

3£ 

2(r5),r1 / is block number in 1/0 queue entry, same as 
/ current block number 

3£ l 

(sp)+ / bump stack pointer 

1£ / use this buffer 


r2,9bufptnbuf-t*nbuf 
2b / go to 2b if r2 less than bufptnbuftnbuf (all 
/ buffers not checked) 
(sp)+,r2 / once all bufs are examined move pointer to 
/ last free block 
2f / if (sp) is non zero, i.e., if a free buffer is 
/ found branch to 2f ; 
rO,idle; s.wait+2 / idle if no free buffers 
1b 


(x0)+ / skip if warmed over buffer 


—(r2),r5 / put pointer to word 1 of I/O queue entry in r5 
cdev,(r5) / put current device number in I/O queue entry 
r1,2¢r5) / move block number into word 2 of I/O queue 

ID IMO.1-1 Section E.8 


3/17/72 Page 6 


UNIX IMP}. ‘ENTATION 


/ entry 


cmp r2,$bufp / bump all entrys in bufp and put latest assigned 
blos 1£ / buffer on the top (this makes if the lowest priority) 


mov -(r2),2(r2) / job for a particular device 
br | 1b 
1: 
mov r5,(r2) 
mov (sp)*,r2 / restore r2 
rts ro 
tape: / dec tape interrupt l 
jsr r0,setisp / save registers and clockp on stack 
mov tcstate,r3 / put state of dec tape in r3 
jsr r0,trapt; tccm; tcap; 4 / busy bit 


mov r3,pc / device control status register 
/ if no errors, go to device state (an address) 


taper: / dec tape error 
dec tcerre / decrement the number of errors 
bne 41 / if more than 1 branch 
movb 1(r2),r3 / r2*1 points to command register upper byte 
bic $17,r3 / clear all but bits 8-10 (Unit Selection) 
incb deverr+2(r3) / set error bit for this tape unit 
br ' tape3 
1: / more than 1 error 
bit $4000,(r2) / direction of tape 
beq 1f / if forward go to 1f 
bic $4000,(r2) / reverse, set to forward 
mov $tapei,tcstate / put tape 1 in the state 


br Of 

1: / put tape in reverse 
bis $4000,(r2) / set tape to reverse direction 
mov $tape2,tcstate / put tape 2 as the state 

0: 
bis $4,active / check active bit of tape 
movb $103,(r2) / set read function and interrupt enable 
br 4f / go to retisp 

tapel: / read bn forward 
mov $tcdt,rO / move address of data register to rO 
cmp (r0),2(r1) / compare block addresses 


blt Ob / if 1t, keep moving 

bgt taper / if gt, reverse 

mov 6(r1),-(r0) / put bus address in tcba 

mov 4(ri1),-(rO) / put word count in tcwc 

mov $115,-(sp) / put end interrupt enable, 

bit $20000,(r1) / is "waiting to read bit of I/O queue set? 
beq 1f / no, 1f 

mov $105, (sp) / yes, put and interrupt enable 


movb (sp)*,(r2) / move function into command register (tccm) 


bis $4,active / set active bit 
mov $tape3,tcstate / get ready for I/O transfer 
br 4f / go to retisp (rti) 


tape2: / read bn bakasswards 
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mov 
ada 
cmp 


E 


UNIX IMPLEMENTATION 


tcát,rO / ro has contents of data register 
$3,r0 / overshoot 

r0,2(r1) 

Ob / if gt keep reading 

taper / else reverse 


tape3: / 1/0 transfer 


bic 
jsr 
bit 
bne 
movb 


jsr 
br 


$30000,(r1) / clear bits 12 and 13 of I/O queue entry 
ro poke / do the I/0 

$4, oe / still k sy see if pick up r-ahead, w-behind 
1f l 

$1, (r2) / no, indicate too bad 


rO,wakeup; runq; 31. / wait up 
4f / retisp 


drum: / interrupt handler 


jsr 
jsr 


br 


disk: 
jsr 
jmp | 


jsr 


mov 
mov 


br 


bit 
beq 
mov 
mov 


bit 


bne 
inc 
asr 
asr 
asr 
dec 


bic 
mov 
mov 
mov 
jsr 
mov 
mov 
mov 
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rO,setisp / save r1,r2,r3, and clockp on the stack 

rO,trapt; dcs; rfap; 1 / check for stray interrupt or 
/ error 

br 3f / no, error 

2f / error 


rO,setisp / save r1,r2,r3, and clockp on the stack 
*$0f 


rO,trapt; rkcs; rkap; 2 

br 3f / no, errors 

$115,(r2) / drive reset, errbit was set 

$1f, 0b-2 / next time jmp *SOf is executed jmp will be 
/ to. 1f 

4f 


$20000,rkcs 

4f / wait for seek complete 
$0b,0b-2 

rkap,r1 


$3000,(r1) / are bits 9 or 10 set in the 1st word of 
/ the disk buffer 

3£ / no, branch ignore error if outstanding 

r1 

(r1) 

(r1) 

(r1) / reissue request 

r1 


$30000,(r1) / clear bits 12 and 13 in 1st word of buffer 
ac,-(sp) 

mq,-(sp) / put these on the stack 

sc,-(sp 

rO,poke 

(sp) *,sc 

(sp) +,mq / pop them off stack 

(sp)*,ac 
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4: 
jmp retisp / u4-3 
trapt: / r2 points to the 
mov (r0)+,r2 / device control register 
mov *(r0)+,r1 / transaction pointer points to buffer 
tst (sp)* l 
tstb (r2) / is ready bit of dcs set? 
bge 4b / device still active so branch 
bit (r0),active / was device busy? 
bea 4b / no, stray interrupt . 
bic (r0)+,active / yes, set active to zero 
tst (r2) / test the err(bit is) of dcs 
bge 2f / if no error jump to 2f 
tst (r0)+ / skip on error 
2t 
jmp (ro) 
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/ u9 =- unix 


trcv: 


3: 
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jsr 
jsr 
jsr 
jsr 
jsr 
jsr 
jsr 
jsr 


mov 
mov 
mov 
mov 
mov 
sub 
asl 
mov 
mov 
tst 
blt 
tst 
beq 
bit. 
bne 
tstb 
bit 
br 


bitb 
beq 


bic 
bit 
bne 
cmp 
beq 
cmp 
bne 


mov 
beg 
movb 
jsr 
br 


cmp 
bne 
bit 
beq 
mov 


bith 


UNIX IMPLEMENTATION 


/ tu yecewe? in Terre gr Anel le Y 


rO,1f 
rO,1f 
ro,1£ 
rO,1f 
rO,1f 
rO,1f 
rO,1f 
ro,1f£ 


ri,-(sp) 

r2,-(sp) 

r3,-(sp) 

clockp,-(sp) 
$s.Systt2,clockp 
$trcvt4,rO / O94 / calculate offset for tty causing 
ro / 028 / this interrupt 
resr(r0),r2 

rcbr(r0),r1! 

r2 

1f / error 

tty+6(xr0) 

1$ 

$40,r2 / parity 

3f / branch if set 
tty+4(r0) 

4f / 37 parity not allowed 
2f 


$100,tty*4(r0). 
2f / non-37 parity not allowed 


«Ger ^ m a 
$40,tty*4(rO) 

3f / raw 

r1,9177 

5f 

r1,$34 

3f 


tty+6(r0),ro 
2f 

r1,6(r0) / interrupt or quit 
rO,wakeall 

2f 

rí,$15 / or 
3f 
$20,tty+4(r0) 
3f 

$12,r1 

$4, ,ttv+4(ro) 
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beg 
cmp 
blo 
cmp 
bhi 
add 


movb 
jsr 


bitb 
bne 
cmp ` 
bne 
bitb 
beq 


cmp 
beq 
mov 
movb 
inc 
jsr 


jsr 
mov 


bitb 
bne 
cmp 
beq 
movb 
cmpb 
bilo 


movb 
jsr 


jmp 


txmt: 
jsr 
jsr 
jer 
jsr 
jsr 
jsr 
jsr 
jsr 


mov 
mov 
mov 
mov 
mov 
sub 
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ttyt3 (ro) ,0f 

rO,putc; 0:.. / put char on input clist 
br 2f 

$10,tty+4(r0) / echo 

4f / branch echo bit set 

r1,$12 

3f 

$20,tty+4(r0) / cr 

3f 


r1,$4 / is char input an eot 

1f 

r1,-(sp) / put char on stack 

tty+3 (r0),0f 

Of 

rO,putc; 0:.. / put char just input on output clist 
br .+2 

rO,starxmt 

(sp)*,r1 


$40,tty*4(rO) / raw 

1f / branch if raw bit set 
r1,$12 

1f 

tty+36r0),r1 

cc(r1),$15. 

2f 


tty+3(r0),0£ 
rO,wakeup; rung; 0:.. / call wakeup for process 


[tty y dear peop Penden 


retisp 


rO,1f 
xO,1f 
rO,1f 
rO,1f 
rO,1f 
rO,1f 
rO,1f 


rt,-(sp) 

r2,-(sp) 

r3,-(sp) 

clockp,-(sp) 

$s.syst+2,clockp 

$txmt+4,r0 / 0%4 / offset in cc 
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asl 
jsr 
jmp 


xmtto: 
mov 
mov 
sub 
asl 
asl 
jsr 
mov 
rts 


starxmt: 
mov 
movb 


cmpb 


bhi 
mov 
inc 
jsr - 


UNIX IMPLEMENTATION 


ro / 0%8 
rO,starxmt 
retisp 


rO,-(sp) 
2(sp),rO / 0%2+6 
$6,r0 


ro 

ro / 0%8 
rO,starxmt 
(sp) *,T0 
rO 


(sp),r1 / OX8 r1 contains 8xtty number 

ttyt3(r1),r1 / place contents of 4th byte of "tty 
/ buf in r1 (ec,cf,cl offset) 

cc+1(r1),$10. / is char count Eo tty output greater 
/ than or equal to 10 

1f / yes 

r1,0f / no, make offset an arg of "wakeup" 

of '"/ increment arg of wakeup 

rO,wakeup; runqt2; Ozee / wakeup process identified 

/ by wlist 


1: / entry specified by argument in 0: 


mov 
asr 
asr 
asr 
tstb 
bne 
mov 
tstb 


bge 
movb 
clrb 
tst 
bne 
movb 
inc 


jsr 


bic 
movb 


bge 
bisb 
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(sp),r1 / 0%8 / r1 contains 8xtty number 

ri 

ri 

x1 / 0%1 r1! contains tty number 

toutt+3(r1) / is teut entry for tty output = 0 

1f / no, return to calling routine 

(sp),r2 / yes, place (8xtty number) into r2 

tcsr(r2) / does tty's tcsr register = 0 (is ready 

/ bit =0 

1f / yes, return to calling routine 

A aC ee / no, place third byte of "tty" buf 
/ into r1 (char left over after lf) 

tty+2(r2) / clear ee byte 

rt / is third byte = 

3f / no, r1 contains E non nul character 

tty*3(r2),0f / yes, make byte 4 arg of "gete". 

of / increment arg to make it tty output list of 

/ clist 

rO,getc; O:.. / obtain next character in clist for tty 
/ out and place in r1 

br 1f / if no entry in clist to be output, return to 

/ calling routine 


$1177,r1 / zero out bits 7-15 of r1 
partab(r1),r3 / move “partab entry (identified by 
/ r1) into r3 
3f / if entry is greater than or equal to O (digit 
/ 2, far left digit = 0) branch 
200,r1 / if entry is less than O add 128 to ASC11 
/ code for char to be output 
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bic 


mov 
bit 
beq 
mov 
cmp 
bne 
bitb 


beq 
mov 


mov 


add 
jmp 


incb 


le rts 
br 
br 
br 
br 
br 


dech 


bge 
clro 
br 


bit 
bne 
bitb 


beq 
movb 


movb 
beg 
clrb 
asr 
asr 
asr 
asr 
add 
br 


bitb 
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$1177,r3 / to make it teletype code and then clear 
/ bits 7-15 of r3 


(sp),r2 / r2 contains 8xtty number 
$4,rcsr(r2) / is carrier present for tty 
starxmt / no carrier flush 
ri,-(sp)./ yes, place character to be output on stack 
rí,$11 / is character ht 
3f / no 
$2,tty+4(r2) / is tab to space flag,for,tty set 
/ (bit 1 of byte 5 in ‘tty buffer area) 
3f / no 
$240,(sp) / yes, change character to space 


(sp)*,tcbr(r2) / place char to be output in tty output 
/ buffer E E 
$tty+1,r2 / place addr of 2nd byte of tty buf 
1£-2(13) / area in r2 (which is the column count) and 
/ then 
(r2) / normal / jmp to location determined by digits 
/ 0 and 1 of character’s entry in partab which 
/ is now in r3 


r0 / non-printing 

if / bs A heed 
2f / nl (line feed) ul 

3f / tab (horizontal tab) 

4f / vert (vertical tab) 

5f / cr 


(r2) / col decrement column count in byte 2 of "tty" 
area 

1£ / if count Do return to calling routine 

(r2) / col set column count - O 

1f 


$1,r1 / is bit O of ASC11 char = 1 (char = lf) 
2f / yes "e 
$20,3(r2) / cr flag is bit 4 of 5th byte of tty 
/ area - 1 
2f / no (only 1f to bg handled) $ . 
$15,1(r2) / place cr in 3rd byte of ,tty area 
(character leftover after lf ) 


(r2),r3 / place present column count in r3 

1f / return to calling routine if count = 0 

(r2) / col clear column count 

r3 

r3 

r3 

r3 / delay - col/16 

d / start to determine tout entry for tty output 
2 


$2,3(r2) / is bit 1 of 5th byte of "tty area = 1 
/ (tab to space bit set) 
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beq 
incb 
bitb 
beq 
movb 
br 


movb 
bisb 
incb 
bis 
neg 


br 


mov 
br 


mov 
clrb 
add 
mov 
asr 
asr 


asr 
movb 


rts 


UNIX IMPLEMENTATION 


3£ / no 

(r2) / increment column count 

$7,(r2) / are bits 0, 1 and 2 set at col 048 

1£ / no 

$11,1(r2) / yes, place ht in another tab next time 
1E / 3rd byte of tty area (character left over after 


/ 


(r2),r3 / place column count in r3 

$7,(r2) / make bits 0, 1 and 2 of column count = 1 

(r2) / increment column count 

$17,r3 / clear bits 3-15 of r3 

r3 / delay = dcol start to determine tout entry for 
/ tty out 

2£ / by neg r3 


$176.,r3 / delay = lots start to determine tout entry 
2f 


$10.,r3 / cr delay 160ms for tn300 start to determine 
/ tout 
(r2) / set column count = O entry 


$5,r3 / time for this char, increment value for tout 
/ entry by 5 ? 
(sp),r2 / 0%8 r2 contains 8xtty number 
r2 
r2 
r2 / 0%1 r2 contains tty number 
r3,toutt*3(r2) / place value for tout entry into tout 
/ table 


rO / return 


partabz / contains 3 digits for each character; digit 2.is used 
/ to determine if 200 is to added to ASC11 code digits O 


/ and 
byte 
byte 
«byte 
ebyte 
ebyte 
ebvte 
ebyte 
byte 
ebyte 
ebyte 
ebyte 
ebyte 
ebyte 
ebyte 
«hyte 
ebyte 


xmtt ¢ 
jsr 
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1 are used to determine value for jump table. 
002,202,202,002,002,002,002,202 
204,010,006,212,012,214,202,002 Eo 
202,002,002,202,002,002,202,002 pork an NAK 
002,202, 202,002, 202,002,002, 202 
200 ,000 ,000, 200,000, 200,200,000 
000,200, 200,000,200 ,000,000, 200 
000 ,200,200,000,200,000,000, 200 
200 ,000 ,000, 200,000,200, 200,000 
200 ,000 ,000, 200,000,200, 200 ,000 
000 , 200,200,000, 200,000,000, 200 
000 ,290,200,000,200,000 ,000, 200 
200,'.30,000, 200,000,200, 200,000 
000, 00,200,000, 200,000,000, 200 
200 ,000 ,000, 200 ,000,200,200,000 
200 ,000 ,000,200 ,000, 200, 200,000 
000 , 200,200,900, 200,000,000, 202 


r0,cpass / get next character from user buffer area 
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tst 
beq 


mov 
mov 
asl 
sub 


mov 
cmpb 


bhis 
jsr 


mov 


mov 
sub 
asi 
asi 
jsr 
mov 
br 


mov 
mov 


jsr 
mov 
br 


UNIX IMPLEMENTATION 


rt / is character nul 
xmtt / yes, get next character 


$240,*$ps / set processor priority equal to 5 

(sp),r2 / r2 contains i node number of file 

r2 / 09228 / multiply inode number by 2 

$21.,r2 / 0%2+7 / subtract 21 from 2x inumber to 

get cc, cf, cl offset 
r2,0f / make offset arg of putc 
cc(r2), $50. / is char count for device greater than 
/ or equal to 50 

2f / yes 

rO,putc; Otee / find location in freelist to assign to 
/ device and 

br 2f / place char in list, if none available branch 
/ to put process to sleep 

r0,-(sp) / place calling routines return address on 

/ stack 

Ob,rO / place offset into cc, cl and cf tables in rO 

$7,r0 / subtract seven from offset 

ro "7 multiply by 2 

rO / 0%8 / multiply by 2 (rO contains 8xtty number) 

rO,starxmt / attempt to output character 

(sp)*,rO / pop stack 

xmtt / get next character 


r1,-(sp) / place character on stack 

0b,0f / make offset into cc, cf, cl table arg of 
/ sleep (identifies location in wlist) 

r0,sleep; 0:.. / put process to sleep 

(sp)+,r1 / remove character from stack 

1b / try again 


rcvt: / read tty 


sub 
asi 
asl 
mov 
mov 


tst 
bne 
bitb 
beq 
tst 
jsr 
tst 
mov 
bitb 
bea 
jsr 


jmp 


jsr 


$28.,r1 / 0%2 r1 contains 2xtty number 


r1 

ri / r4 contains 8xtty number 

r1 »-(sp) 

tty+6(r1),r5 / r5 contains address of 4th word in 
/ tty area 

2(r5) / is char count = 0 

1f / no 

$40,tty+4(r1) / raw flag set? 

2f / no 


-(sp) / yes, decrement sp 

rO,rcvch / get character from clist 

(sp)* / increment sp 

(sp)*;r2 / r2 contains 8xtty number 

$4,rcsr(r2) / is carrier detect bit on 

3f / no 

rO,passc / yes, place character in users buffer area 


ret 


r0,canon; rcvch / process a line of characters in 
/ clist and place results in tty buffer 
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tst 


tst 
beg 
movb 
inc 
dec 
jsr 


br 


jmp 


rcvch: 
mov 
mov 
bit 
bne 
bic 
rts 


movb 
mov 
jsr 


clr 
rts 


mov 
mov 
jsr 
mov 
br 


ocvt: 
sub 
mov 
asi 
asi 
mov 
add 
movb 


mov 
bit 
bne 
mov 


movb 
jsr 
br 


mov 
tstb 
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UNIX IMPLEMENTATION 


/ area 
(sp)+ / increment sp 


2(r5) / is char count for tty buffer = 0 

1f / yes 

*4(r5),r1 / no, move character pointer to r1 

4(r5) / increment character pointer 

2(r5) / decrement character count 

rO,passc / place character, whose address is in 
r1, in 

1b / user buffer area. Then get next character. 


ret 


4(sp),r2 / OX8 r2 contains 8xtty number 

$4 ,r1 

ri,resr(r2) / is carrier detection bit on 

1f / yes 

$1,rcsr(r2) / no, clear data terminal ready bit 
ro 


tty+3(r2),0£ / make cc offset arg for "getc" 
$240,*sps / set processor priority = 5 
rO,getc; 0O:.. / get next character off clist 
br 2f / clist empty 

*sps / set processor priority = 0 

ro 


0b,0f / make "getc" arg an arg for "sleep" 
r5,-(sp) / save tty buffer address on stack 
rO,sleep; Ozee 

(sp)*,r5 

rcvch 


$28.,r1 / 0%2 calculate tty table offset 
r1,r2 

r1 / 0%4 

rt / 0%8 

r1,-(sp) 

$6,r2 / calculate clist id clist offset 
r2,tty+3(r1) / put clist id in tty table 


(sp),r1 

$4,resr(r1) / carrier detect bit set 

1£ / if so, branch 

$511,rcsr(ri) / set ready, speed, interrupt enable, 
/ supervisor transmit 

tty+3(r1),0£ / put clist id in sleep argument 

rO,sleep; Ose. 

1b 


tty+6(r1),r5 / put tty buffer address in r5 
(r5) / first byte of tty buffer = 0 
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UNIX IMPLEM: NTATION 


bne 1£ / if not, branch 
mov $511,rcsr(r1) / set control bits for receiver 
mov $511,tcsr(r1) / set control bits for transmitter 


movb  $210,tty+4(r1) / put 210 in tty table word 3 / set flags 
incb (r5) / inc first byte of tty buffer 


tst (sp)+ 
tst u.ttyp / is there a process control tty 
bne 1f / yes, then branch 
mov r5,u.ttyp / no, make this tty the process control tty 
br 1£ / return 
ccvt: 
sub $28.,r1 
asl rt / 0%4 
asl r1 
mov tty+6[(r1),r5 
decb (r5) 
1: 
jmp sret 
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/ ux -- 


systms 


inode: 


mount 3 
procs 


tty: 


fsp: 
bufp: 
SbO: 
Sb1: 
Swp: 
ii: 
idevs 
cdev: 
deverr: 
active: 
rfap: 
rkap: 
tcap: 
tcstate; 
tcerrc: 
mnti: 
mntd: 
mpid: 
clockp: 
rootdir: 
toutt: 
rung: 
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UNIX IMPLEMENTATION 
unix 


exet2 
e=et128. 
ezet2 
ez. t64, 
setimes 
s.syst: 
sewait: .=.+4 
seidlet:.=.+4 
s.chrgt:.=e+4 
s.drerr:i+.=.+2 


em. tá 
exzet4 


i.flgs: 
i.nlks: 
i.uids 

i.size: 
i.dskp: 
ictim: .=.+4 
i.mtims .=.+4 
e = inode+32, 
e=.+1024. 


.=.+2 
e=.+1 
.=.+1 
em. t2 
.=.+16. 


pepid: z.*t[2*nproc] 
p.dska: .-.*[2*nproc] 
peppid: .=.+[2*nproc] 
pebreak: o=e+{2*nproc] 
pelink: .=.+nproc 
pestat; .-.*nproc 


.<= .+[ntty*8.1 
ezo+[nfiles*8.] 
e=.t (nbuf #2] +6 
.=.+8 

exe t8 

ez, t8 

ez. t2 

ee *2 

em. t2 

ez. * 12. 

sm, *2 

ez, t2 

ax. t2 

ez. t2 

ez. t2 

am. t2 

ez. t2 

.=.+2 

ec. +2 

en. +2 

exo t2 

ox. t16.; touts: .=.+32, 
en. t5 

3/17/72 
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UNIX IMPLEMENTATION 


wlist: ec. t4AO, 


CC? em. +30. 
cf: em. +31. 
c1: en. t31. 
clist: ez. t510. 
imod: szeti 
smod; est! 


mmod 3 az. t1 
uquant: .=.+1 
sysflg: .=.+1 
ppti£lg:.z.*1 
ttyoch: .=.+1 

«ven l 

e=:+100.; sstack: 
buffer: .-.*[ntty*140.] 


.=.+[nbuf*520.] 
e = COre-64, 
user: 
usp: .=. t2 
UeUSDS ezet2 
ue rO: ex, t2 
uecdirs  .-.*2 
ues fp: ez. 010, 
u.fofp: exet2 
u.dirp: ..+2 
usnamep: exet2 
u.off: e=. t2 
usbases .=.+2 
us counts .z.*2 
unread: .==»+2 
u.breaK: e=et2 
u.ttyp: .=.+2 
usdirbuf:r.=».+10. 
u pri: ez. t2 
u.intr: .e=et2 
u,quit: .=.+2 
u, emt: ez. t2 
ueilgins:.=.+2 
uecdev;  .-2.*2 
ueuids .=.t1 
ueruid: .=.+1 
u.bsys? ez. t1 
umos ez. +1 
e = core 
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UNIX IMPLEMENLATION 


/ Sh -- command interpreter 
mov spyrb 
mov r5,shel laro / save oria sp in shel lara 
cdpb B(rs),$%~ / was this sh calleZd by init or looinx^ 
bne 2f / no 
sys intr: O / yes, turn off interrupts 
sys quits O 
2: 
sys getuid / who is user 
tst ro / is it superuser 
bne 2f / no 
mo vb $^s,at / yes, set new prompt syinbol 
21 
cmp (r5),$1 7 ttv input? 
ble newline / yes, call with ^-(or with no command 
/ file name) 
clr rO / no, set ttv 
sys close / close it 
mov 4(r5),0f / get new file name 
sys open; O1..3 O / open it 
bec tf / branch if no error 
jsr r5,error / error in file name 
/«Input not foundNnNO»;i .even 
sys exit 
Ia 
clr at / clear prompt character, if reading non-tty 
/ input file 
newline: 
tst at / is there a prompt symbol 
bea newcom / no ; 
mov $1,r0 / yes 
sys writes ats 2. / print prompt 
newcoms 
mov shellarg,sp / 
mov $parbuf,r3 / initialize command list area 
mov $parp,r4 / initialize command list pointers 
clr infile / initialize alternate input 
clr outfile / initialize alternate output 
clr glflag / initialize global flag 
newarg? 
jsr pc,blank / squeeze out leading blanks 
jsr r5,delim / is new character a $ \n or & 
br 2f / yes 
mov r3,-(sp) / no, push ara pointer onto stack 
cmp rO,$^« / new input file? 
bne lf / no 
mov (sp),infile / yes, save arg pointer 
clr (sp) / clear pointer 
br 3f 
ba 
cmp r0,$%> / new output file? 
bne newchar / no 
mov (sp),outfile / ves, save erg pointer 
clr (sp) / clear pointer i 
br | 3f 
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newchart 


cmp $^ rO / is character a blank 
beq 1f / branch it it is (blank as ara separator) 
cmn $^Nn*200,rO / treat «n preceded by N 
beq if / as blank 
Ísr pe, pute / put this character in parbuf list 
33 
jsr pc, gete / get next character 
jsr r5,delim / is char a $ An or & 
br If / ves 
br newchar / no, start new character tests 
la l 
clrb (r3)+ / end name with NO when read blank, or 
/ delim 
mov (sp)+,(r4)+ / move arg ecty to parP location 
bne i£ / if (sp)=0, in file or out file points to ero 
tst -(r4) / so ignore dummy (0), in pointer list 
ts 
Jsr r5,delim / is char a $ Mn or å 
br 2f / yes 
br newarg / no, start newarg processing 
2: 
clr (r4) / M, & or 3 takes to here(end of arg list) 
/ after “delim’ call 
mov rO,-(sp) / save delimter in stack 
jsr pc,docom / go to exec command in parbuf 
cmpb (sp),9^& / get a new command without wait? 
beq newcom / yes 
tst rl / was chdir just executed or line ended with 
/ ampersand? 
beq 2f / yes 
ES 
sys wait / no, wait for new process to terminate 
/ command executed) 
bcs 2f / mo, children not previously waited for 
cmp rO, ri / is this my child 
bne Ib 
21 
cmp (sp),$^*n / was delimiter a new line 
bea newline / yes 
br newcom / no, pick up next command 
docomt 
sub $parp,r4 / put arg count in r4 
bne If / any arguments? 
clr ri / no, line ended with ampersand 
rts pc / return from call 
3 
¿sr r5,chcoms qchdir / is command chdir? 
br 2f / command not chdir 
cmp r4,$4 / prepare to exec chdir, 4=arg count x 2 
beo 3f 
dsr rS,error / do to print error 
«Arca countNnNO»3 ¿even 
br Af 
3t i 
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mov parp+2,0f / more directory name to svs coll 
sys chdir; 010 / exec chdir 
bec 4f / no error exit 
jsr r5,error / oo to print error 
«Bad directoryNnNO»: «even / this diaonostic 
4t 
clr rl / set ri to zero to dkin wait 
rts pc / and return 
2s 
jsr r5,chcoms3 qlogin / is command login? 
br 2f / not login, ao to fork 
sys exec; parbufs parp / exec login 
sys exec} binpb: parp / or /bin/looin 
23 / no error return?? 
sys fork / generate sh child process for command 
br newproc / exec command with new process 
bec If / no error exit, old process 
jsr r5,error / go to print error 
<Trv acaininx0>3 seven / this diagnostic 
jmp newline / and return for next try 
la 
mov ro,rl / save id of child sh 
rts pc / return to "jsr Dc, docon" call in parent sh 
error? 
movb (r5)*,och / pick up diagnostic character 
beq if / O is end of line 
mov $1,r0 / set for tty output 
sys write; och; 1 / print it 
br error / continue to get characters 
13 
inc r5 / inc r5 to point to return 
bic $1,r5 / make it even. 
clr ro / set for input 
sys seoks.03 2 / exit from runcom, Skip to end of 


/ input file 
chcom: / has no effect if tty input 


mov (r5)+,rl / alogin achdir rl, bump r5 

mov $parbuf,r2 / command address r2 “login’ 
La : f 

movb (rid+,ro / is this command *chdir^ 


cmpb (r2)+,r0 / compare command name byte with “login” 
/ or *chdir? 


bne If / doesn’t compare 

tst rO / is this 

bne Ib / end of names 

tst (r5)+ / yes, bump r5 again to execute login 

/ chdir 

la 

rts r5 / no, return to exec command 
putct 

cmp r0,$’% / sincle quote? 

beq lf / yes 

cmp r0,$** / double quote 

bea If / yes 
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bic 
mo vi» 
rts 


mov 


JSF 
cmp 
bne 


jsr 
jmp 


cmp 
beg 
bic 
movb 
br 


tst 
^ rts 


S'ITI.FO Y noy, remove 200. 35 present 
rO,.(r3)4* Z store character in povoui 
Dc 


rO,.-(sp) Y push quote mark onto stack 


pecete / get a guoted character 
r0,stin 4 is it end of line 
2f / no 
r5,error / yes, indicate missing quote merk 
«"^ imbalanceinxO>; .even 
newline / ask for new line 


r0,(sp) / is this closing quote mark 

tf / yes 

$1177,r0 / no, strip off 200 if present 
r0,(r3)+ / store quoted character in parbuf 
lo / continue 


(sp)+ / pop quote mark off stack 
pe^, return 


/ thp*e new process 


newproc? 
mov 
beq 
tstb 
beq 
clr 
Sys 
sys 
bcc 


Jsr 
SyS 


mov 
bea 
cmpb 
bne 
inc 
mov 
SVS 
bec 


mov 

sys 

bec 

jsr 

sys 
31 

sys 
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infile,Of / move pointer to new file name 

If / branch if no alternate read file given 

xOf 

3f / branch if no file name civen 

rO / set tty innut file name 

close / close it 

opens 0:..:3 O / open new input file for reading 
If / branch if input file ok 


r5,error / file not ok, print error 
«Input file\n\O>3 even / this diagnostic 
exit / terminate this process and make narent sh 


outfile,r2 / more pointer to new file name 
1f / branch if no alternate write file 
(r2),$%> / is > at beginnina of file name? 
4f / branch if it isn’t 

r2 / yes, increment pointer 

r2,0f 

open; O:..3 1 / open file for writing 

3f / if no error 


r2,0f 

creat; Ot... 17 / create new file with this name 
3f / branch if no error 

r5,error 

<Outnut file\n\O>3 .even 

exit 

close / close the new write file 
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delims 


3: 
21 


blanks: 


getc3 
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mov 
mov 
sys 
sys 


sys 


tst 
bne 
SVS 
sys 


sys 


bes 
mov 
mov 
SVS 


jsr 
sys 


mov 
sys 
br 


cmp 
beq 
cmp 
beq 
cmp 
beq 
cmp 
beg 
cmp 


bne 
inc 
tst 
rts 
Jsr 
cmp 
beq 
cmo 


beq 
rts 


UNIX IMPLEMENTATION 


r2,0f / move new name to open 

şi rO / set tty file name 

close / close it 

open: O%..% | / open new output file, it now has 
/ file descriptor | 

seeks 03 2 / set pointer to current end of file 


glflag / was *, ? or [ encountered? 

If / ves 

exec; parbufs parp / no, execute this command 
exec} binpb; paro / or /bin/this command 


stat: binpbs inbuf / if can^t execute does it 
/ exist? 
2f / branch if it doesn’t 
$shell,paro-2 / does exist, not executable 
$binpb,parp / so it must be 
exec} shell; parp-2 / a command file, get it with 
/ sh /bin/x (if x name of file) 


rb,error / a return for exec is the diagnostic 
«No command\n\O>$ seven 
exit 


$glob,parp-2 / prepare to process *,? 
exec; globi parp-2 / execute modified command 
2b l 


rO,$^«n / is character a newline 
If 

r0,$*8 / is it & 

lf / yes 

rO0,$^s / is it 3 

If / yes 

r0,$4? / is it ? 

3f 

r0,$*t / is it beginning of character string 
! / (for glob) 

2f. 


glflag / ? or * or [ set flag 
(r5)+ / bump to process all except An,;,8 
r5 


pc,.getc / get next character 
$^ ,ro / leadina blanks 


blank / ves, “squeeze out’ 


r0,$200+’\n / new-line preceded by \ is translated 
blank / into blank l 


pe 
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tst 
bne 
mov 
cmp 
bne 
jsr 
br 


movb 
mov 
bis 


clr 
cmp 
beq 
cmp 
beq 
rts 


mov 
br 


mo vb 


beq 
inc 
rts 


clr 
br 
Ísr 
sub 
cmp 
clos 
mov 


mov 


inc 
cmp 
bge 
asl 
add 
mov 
br 


mov 
mov 
mov 


dec 


mov 


UNIX IRPLEMESTAS 


dei 
Ls 


param / are we substituting for $n 

2t / yes ' 

inbufp,rl / no, move normal input pointer to rl 
ri,einbuf / end of input line? 

If / no 

pc,.cetbuf / yes, put next console line in buffer 
getc > 


(r1)+,r0 / move byte from inout buffer to rO 

rl,inbufp / increment routine 

escap,rO / if last character was \ this adds 
/ 200 to current character 

escap / clear, so escap normally zero 

rO,.$^N«. / note that \\ is equal \ in as 

If 

r0,$’$ / is its 

3f / yes 

pc / no 


$200,escap / mark presence of \ in command line 
getc / get next character 


*param,rO / pick up substitution character put in 
/ rO 
If / if end of substitution ara, branch 
param / if not end, set for next character 
pc / return as thous character in ro is normal 
/ input 


param / unset substitution pointer 
getc / get next char in normal input 


pc,getc / get digit after $ 

$^0,rO / strip off zone bits 
rO,$9. / compare with digit 9 

If / less than or equal 9 

$9.,r0 / if larger than 9, force 9 


 shellarg,r! / get pointer to stack for 


/ this call of shell 
ro / digit +I 
rO,.(rl) / is it less than # of args “in this call 
getc / no, ignore it, so this $n is not replaced 
rO / yes, multiply by 2 (to skip words) 
rOl,rO / form pointer to arg pointer (-2) 
2(r0),param / more ara pointer to param 
getc / go to get substitution arg for $n 


Sinbuf,rO / move input buffer address 
rO,inbufp / to input buffer pointer 
rO,einbuf / and initialize pointer to end of 
/ character stringa 
r0 / decrement pointer so can utilize normal 
/ 100p starting at If . 
rO,Of / initialize address for reading Ist char 
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inc Of / this routine filles inbuf with lina from 
/ console ~ if there is one 
clr. rO / set for tty inout 
sys read; 0:0; | / read next char into inbuí 
bes xiti / error exit 
tst rO / a zero input is end of file 
beq xit! / exit 
inc einbuf / eventually einbuf points to An 
/ (+1) of this line 
cmp Ob, $inbuf +256. / have we exceeded input buffer size 
bhis xiti / if so, exit assume some sort of binary 
cmpb *0D,$%\n / end of line? 
bne ib / no, go to get next char 
rts oc / yes, return 
xiti: 
sys exit 
quest: 
<?\n> 
at: 
«8 > 
qchdirt 
«chdirNO» 
glogin: 
<loginx0> 
shells: 
</bin/sh\0> 
glob: 
«/etc/globNO» 
binpbs 
</bin/> 


parbuf: .=.+1000. 


.even 
param? .=.+2 
glflag: .=.+2 
infiles: .=.+2 
outfilet.=,+2 


.—.t2 / room for glob 
parp?: e=.+200. 
inbuf: =>. 256. 


. escap? .=.+2 
inbufpt .=.+2 
einbuf: ,=,+2 
och: .=.t2 


Shellarg:.=.+2 
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/ init -- process control initialization 


mount = 21. 


sys 
SYE 
emp 
bne 

help: 
clr 
sys 
mov 
sys 
sys 
sys 
sys 
br 


mov 


movb 
sys 
inc 
emp 
blo 
sys 


sys 
sys 
movb 
jsr 
mov 


/ create sholl 


“4s : 
mov 
beq 
movb 
jer 
mov 
br 


intr; O / turn off interrupts 
quit; O 

csw,$73700 / rige user? 

1f / no 


rO / yes 

close / close current gen: 

$1,r0 / and write . 

close / files 

open; ctty; 0 / open control tty. 
open; ctty; 1 / for read and write 
exec; shell; shellp / execute shell 
help */ keep trying 


$*0,r1 / prepare to change 


ri,tapx+8 / mode of dec tape drive x, where 
chmod; tapx; 17 / x=0 to 7, to OS by owner or 
r1 f non-owner mode 
rí,$'8 / finished? 
1b F no . i 
mount; rk0; usr / yes, root file on mounted rko5 
/ disk is /usr 
creat; utmp; 16 / truncate /tmpfutmp 


l close / close it 


$'x,zero*8,. / put identifier in output buffer 
pc.wtmprec / go to write accting info 
$itab,ri / address of table to r1 


processes 


(rí)*,rO / °X, x=0, 1... to rO 

1f / branch if table end 

rO,ttyx*8 / put symbol in 

pc,dfork / go to make new init for this ttyx 
r0,(r1)+ / save child id in word offer ‘0, “Ayo o. etos 
1b p set up next child 


/ wait for process to die 


13 
sys 
mov 


wait / wait for user to terminate process 
$itab,ri / initialize for search 


/ search for process id 


2: 
tst 
beg 
emp 


Tesue D Date 


(x1)+ / bump r1 to child id location 
1b / ? something silly 
rO,(rií)* / which process has terminated 
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25 / not this one 
oz utmp 


84,11 / process is found, point x' to °x 
/ for it 

ri,~(sp) / save address on stack 

(zi j ri / move 'x to r1 

20,11 / remove zone bits from character 

ri / generate proper i 

ri / offset 

ri / for 

ri / seek 

r1,0£ / move it to offset loc for seek 

$zero,rt 


(r1)* / ccear- 

rt,ézero+16. / output buffer 

2b i area 

open; utmp; 1 / open file for writing 

2f / if can't open, create user anyway 
r0,r1 / save file desc 

seek; O:..3 O / move to proper pointer position 
ri, ro / not required 

write; zero; 16. / zero this position in 
ri, rO / restore file descriptor 

close / close file 


/ xe-create user process 


2% 


sys 
sys 
sys 


sys 
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(sp)+,r1 / restore 'x to r1 

(r1)+,r0 / move it to rO 

r0,ttyx+8 / get correct ttyx 

rO,zero*8 / move identifier to output buffer 
pcywtinprec / go to write accting into 
pc,dfork / fork 

rO,(ri)* / save id of child 

tb / go to wait for next process end 


ríi,r2 

$itab*2,r2 / left over 

r2 / from previous 

r2 / version of code 
r2,0ffset 

fork 

br 1f / to new copy of init 
dfork / try again 

pc / return 


quit; O / new init turns off. 

intr; O / interrupts 

chown; ttyx; O / change owner to super user 

chmod; ttyx; 15 / changemode to read/write owner, 
/ write non-owner 
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open; ttyx; O / open this ttyx for reading 


sys 
/ and wait until someone calls 
bes help1 / branch if trouble 
sys open; ttyx; 1 / open this ttyx for writing after 
/ user call 
bes help1 / branch if trouble 
sys exec; getty; gettyp / getty types <legin> and 
executes login which logs user 
/ in and executes sh- . 
sys exit / HELP! 
helpi: ; 
jmp help / trouble 
wtmprec: 
sys time / get time 
mov ac,zerot10. / more to output 
mov mq,zero*12. / buffer 
sys open; wtmp; 1 / open accounting file 
bes 2f 
mov rO,r2 / save file descriptor 
sys seek; 0; 2 / move pointer to end of file 
mov r2, rÓ / Es required 
sys write; zero; 16. / write accting info 
mov r2,r0 / restore file descriptor 
sys close / close file 
2: l 
rts pc 


ctty: </dev/tty\0> 
shell: </bin/sh\0> 
shellm: <-\0> 
tapx: Siac feas ds 
rko: </dev/rk0\0> 
utmp: </tmp/utmpNo> 
wimp: </tmp/wtmp\o> 
ttyx: </dev/ttyxl0> 
getty: </etc/gettyX0> 
usr: </usr\o> 
«even 


shellp: shellm 
0 

gettyp: getty 
0 


itab: 
.. 
ee 


ee 


$0 we we 99 we Ft we WO 


e 9 999 9*8 s 
ONOURWN AO 
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offset: exet? 
zero: es t3. ; enmet! 
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4. Overview 


The code of UNIX is divided into 11 files, named uO through u9 
and ux. ux contains the definitions of the system tables and 
data areas: the actual code is in the other sections, These 
files are assembled together in the order u0 ... u9 ux. The boot 
procedures section of the Urs CARLAN how to test and install a 
newly assembied system, 





There are three major portions of UNIX: the file system, the 
process control system, and the rest. "The rest" refers mostly 
to the code implementing several miscellaneous system calls which 
do not fit neatly into any category. Unfortunately the various 
parts of UNIX are fairly well strewn about its constituent source 
files, The following is a rough key: l 


ud initialization 

ul system entry; some system calls 

u2 most remaining system calls 

u3 process switching, swapping 

u4 character-oriented device interrupt time routines, except 
DC-11 

u5 basic file system routines 

u6 more file system routines 

u7 more file system, character-oriented device non-interrupt 
time routines 

u8 interrupt and non-interrupt time routines for block structured 
devices (disks, tape) 

-u9 almost all code for DC-11 asynchronous communications interfaces 


It has been mentioned parenthetically that UNIX is not very modu- 
lar. Its lact of modularity is. reflected in this document, 
Therefore (to paraphrase Fenichel and Mcilroy referring to their 
description of TMGL) no single order of reading can be 
recommended; instead a chimneying technique is suggested, climb- 
ing not one wall at a Eme but all simultaneously. 


2. ee re of the data base. 


A description of each item in the data base is given in Section 
F. In core data is defined in ux 


3. System entry and exit 


The system can legitimately be entered only by some sort of trap. 
The trap caused by the trap instruction (that is, sys) and all 
otherwise unknewn traps are directed to one of the synonymous 
labels  unkni or sysent. There the registers are saved in the 
following order: : TDi S 


ro 


eee 
r5 
ac 
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mq 
sc 


A pointer to the stack (after the save) is retained. Then the 
O being executed at the time of the trap is examined to 
see whether it represents a legitimate system call. If so, a 
jump is made to the proper routine; if not, to the label badsys. 
Whenever the system is entered by this route, a flag is set to 
indicate that syster code is being executed. No traps, including 
system calls, are allowed witnin the system. 


To exit from a system call, a call handler jumps either to sysret 
to error. The only difference is that in the latter case the 
error bit (c-bit) is set in the word from which the processor 
status will be restored. 


At sysret, a check is made to determine the last-mentioned i-node 
the super-block, or the dismountable super block have been 
modified; if so, the I/O to write out the appropriate area is 
started via  ppoke,. Then a check is made to determine if the 
user's time quantum ran out during his execution in the system. 
If so, tswap is called to give another user a chance to run. The 
registers are restored and an rti is executed to return to the 
user's program. 


Label badsys is reached either because the user executed an ille- 
gal trap-type instruction or because a t-bit trap occurred. (The 
t-bit is used to implement the quit function.)  badsys calls the 
appropriate internal routines to write out a core image file in 
the user's current directory, then jumps to the sysexit routine 
to terminate the process. 


4. Fork, Exit, Wait 


Fork and exit implement the creation and destruction respectively 
of processes, 


There is a fixed maximum number of processes, Each possible pro- 
cess has a slot in the process tables and a swap area on the RF 
disk associated with it. 


Label sysfork implements the fork primitive. It searches the 
p.stat portion of the process table to find an idle process slot, 
and gives an errcr if none is found. An entry for the new pro- 
cess is placed on the run queue and wswap is called to swap out a 
copy of the current process” core image onto the new process” 
disk area. The fsp entry for each file open in the process is 
incremented to indicate that ce such file is open in another 
process. f 


sysexit implements process destruction. It is more complicated 
than one might think. First each open file is closed by fclose. 
The process” status is set to unused. Then the process table is 
searched to find any children of the process. Any of these that 
have died but not waited for are marked free. x 


Issue D Date 3/17/72 ID IMO.1-1 — Section F Page 2 


UNIX IMPLEMENTATION 


When the verent of the dying process is found, it is awakened (by 
putlu) if it is waiting. Then the dying process enters a zombie 
state in which it will never be run again, but stays around until 

a wait is completed by its parent process. If the parent is not 

found, the process just dies. 


syswalt implements the process wail facility. It searches the 

process table for a child process. If none is found, and error 
is returned. If a child is found in the zombie state (terminated 
but not buried by wait) its process ID is returned and its pro- 
cess slot is freed. 


If all children are still active, syswait calls swap to give up 
the processor. 


The possible states of a process (p.stat values) are: 


free, i.e., no process associated with this slot number 
active 

waiting for a child to die 

terminated, but not yet waited for (zombie). 


Un »0O0 


5, Process swapping 


-The important routine is swap. When swap is called, the run 
queues are searched for the highest priority process. It is not 
the same as the process in core, core is written out to the ap- 
propriate disk area, the image of the new process is read in, and 
swap returns to the point in which it was called in the new pro- 
cess. 


If there is no process in the queues, idle is called. idle con- 
sists essentially of a wait instruction; the effect of wait is 
such that idle returns after every interrupt. swap searches the 
queues again in the hopes of sinaing: a process entered on a queue 
by the interrupt routine. : 


The I/O to write out a core image is done by wswap. It must 
operate on a stack internal to the system. wswap uses the pro- 
gram break u.break to determine how much to write out. Usually, 
the process’ stack area is copied down to the top of the program 
area to speed up I/O. The I/O queue entry reserved for swapping 
is set up and ppoke is called to initiate the I/O. 


The core image reading routine is rswap; it also uses the system 
stack. The core image is unpacked by unpack. l 


It is important to realize that running processes are not on the 
run queues, Therefore, processes which call swap must already 
have arranged to be put back on the run queues in some way. 


The tswap entry to swap is used for timer runouts; it puts the 
process on the lowest priority queue before flowing into swap. 
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6. File Syst 
& detailed de 


under Format 
agrems on the 


Block 
Number 


0 


eee 9 * A 


Notes: There are 256 words/block 


(——OD(^^A—A———————————————————————————————— 
e 


— Y deme 


ein 


scription of the file system is given in the UPM 
of File System and Format of Directories. The di- 


following pages support that write up. 


FORMAT OF FILE SYSTEM 
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See page 2 


See page 3 


See page 4 


See page 6 
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FREE STORACE MAP 


1. There is 1 bit for esch block on the devitno. 
2. If the bit ic o 1, the block is frece 
3. The bit for block k of the device is in byt: k/2 
of the map; it is offset k (meas) hits from the 
right ex. Find the bit for block 100 
100 
wee am byte 12 offset = 4 
8 


block numbers f.s. map byte 
115 - | 8| (2 4 0 
i 
-i 


131 | 16 


e a e o e - — M 
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| a 32} 


——————————————— 9-1 CO IO AP OPEP A eli? HIE UR OG MD ath LE cl adi O radi MIB CA Ot I 
m RR. o | 


| 64 | 


AMO UU ade O o we DU 0d cip Gin ard) uh ld oe unl arl ore oa P | rd | 


| | 80| 1 


12 


|--- omen. pee eae mon 


| 
| 1100199198127196] 


~ 


| 
| 
bit 4 of the o dd 
| 
| 
| 


HM APA. GEM QUUD QUUD T VOI O densum A AUD A ONG) NSE FLO A qup AD UD UU anew aon: 
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UNIX IMPLEMENTATION 


-INODE MAP 





Notes: 
4. The map begins with inode 41. 
2, There is 1 bit for each i-node. 
3. If the bit is a O, the inode is free. 
4. The byte number for i-node i is byte number 
= (i-41)/8 
The offset or bit position = (i-41) mods 
Ex. i = 100 
byte number = 100-41 
=æ. = byte 7 
8 
offset = (100-41) mod8 = bit 3 
i-node number B MN l byte 
| aaa o a RT UTE UP MUS een a ai c ! a GP QUE ae VEU (EP D. aua GNEP«VUP QUID QUD UMS UP QUE qua. QuO UMP AD AED. Cd M" | 
156 | 41] 0 
|------- A M | 
3 | D 2 
3 | | 253 4 
7 |. 13 12 {1 fo | E 
allas : 
| [100199/[98/|97196 89| 6 
nent pr 
| bit 3 of the 7th byte | 
| | 
| | 
Issue D Date 3/17/72 | ID IMO.Pe 
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UNIX IMPLEMENTATION 


I-NODES 


Notes: ; n 
4. Each i-node represents 1 file. 
2. I-numbers start at 1. 
3. Storage begins in block 2. 
‘4. 1-nodes are 32 bytes long. 
16 inodes fit in 1 block. 
5. The block number for i-node i is found by: 
block number = (1+31)/16 
The byte number from the start at the block is 
found by: 
byte number - 32 ( (1431) (mod16)) 


Ex. Find where i-node 50 is. 

block number = (50+31)/16 2 5 NEN 
it begins at byte number 32. ((81)mod16)) 
232 (1) = 32 


block number 


qu» ew E ema Eee O QUE A e aqui atm 


2 | i-node 1 | 32 bytes/i-node 
| 1 | 
| . | 
| . t 
| i-node 16 | 
3 ! 17 E 
| : 
| . | 
| . | 
| 32 | 
| -------------- | 
a | 33 | 
po è 
| " 
| e { 
48 
5 | 49 | 32 bytes 
{ 50 |! _ block 5, byte 32 


6. i-nodes below 41 are for special files. 
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\ 


AN I-NODE IN DETAIL 


iu aes 
! flags (see below) | o 
t t t 
a E | uir pL ES | 
3 | user id of i number of | 2 
| owner l = links | 
t 1 f 
e rp eme mtm dea m mm m mme t 
i size in bytes | 4 
| | 
14st indirect block or contents block] 6 
Gu que en QU gun abt A ii AND AD ALD AUD QUI Um CID GF VIP AIO GD GEE END CARED i0» GHD QUID. GP GRY MD SE AMI. SENS US ke er | 
| 2nd indirect or contents block | 8 
austr GNP AND. O AO 00 OE gu» ML ERS ERD GED O ED D ARP ON GER UT els llo GAP QUP TD GE O AD me GU webs do GES AD A ! 
{ . i 
| " | 
| . |. 
| . | 
| ' 8th indirect or contents block | 20 
| creation ! 22 
Q0 j--—-—-- —- | 
25 | time | | 24 
| mođification | 26 
29 . | time | 28 
i 
am ea e A Cal RU LI apre 5002 O ais AS PD aa UD O UND MED CD UP O LU CD AND A AP U ae SUEY a GE SED D etm 1 
unused | 30 
| 


The flags are as follows: 


100000 i-node is allocated 

040000 directory 

020000 file has been modified (always on) 
010000 large file 

000040 set user ID on execution 

000020 executable 

000010 read, owner 

000004 write, owner 

000002 read, non-owner 

000001 write, non-owner 


Issue D Date 3/17/72 ID ts Section F Page 8 


UNIX IMPLEMENTATION 


FILES 


1) A small file is a file less than 8 blocks long. 2) ,A large 
file is crester than 8 blocks long. 3) Byte number n of a 
file is addressed as follows: 

block number -.n/512 = b 


a) If the file is small (see flags) 


physical block = bth entry in address 
l portion of i-node 


ex. ii = 1500 
1500 


Z ——-— e 


512. — 


physical block - 2nd contents block in bytes 
8 and 9 of the inode 


b) If the file is large. (greater than 8 | blocks) 
then 
indirect block # = b/256 


byte offset in 
indirect block = 2 (b (mod256)) 


word found in this byte is the address of the 
block corresponding to b 

ex. b= 1000 © . 

indirect block number = 1000/256 = 3 

byte offset = 2 (1000 mod256) = 2.232=464 


inode : byte indirect blocks 
block entry | sonas ee tee enna 
E m m t I à 
1 | | 6 i 
| ame ma ne a nee oo ne am { start ” - 
2 | | | | 8 of 
lo o a m me ma nat a a me a e e a a a | block |---------- -———----------- | 
3 | contains block no. | 10 | . | 
464 "E 
| of indirect block | E $ d 
bytes 


red 
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Notes: 


Entry l 
1 | i-number of directory ipee (. ) | 
] i 
| |. 8 character file name E 
| 
2 | i-number of parent directory Cee) | 
AME deo SEN GRAN ge gree aes A OR GET SER RD ED eh NEMO. a SR a a aie OEC AUT SE ica SUD ÉD O O SO O A ET NOSY a 200 t 
t 
| 
| 8 character file name | 
| 
3 i-number of file represented by entry| 
| | | 
| 8 character file name { 
a | . | 
: | . | 
_ | $ | 
e H . | 
Issue D Date 3/17/72 ID IMO.4<1 | 


UNIX IMPLEMENTATION 


DIRECTORIES 


1) Like a file except no user (except superuser) may 
write into a directory. 
2) A file is identified as a directory by a bit in 


the flag word of its i-node. 


page 5) 
3) Directory entries are 10 bytes long. 











(See i-node flag 
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Notes: 
1) The fsp table is an ingere table containing inforsae- 
tion l l 
about open file 
2) It is 4 wor B ee 
3) The same file can be opened more than once, 
more than one entry in tre fsp table. 
entry 15 i 
8 ee mnm m ETT E TT ELT ATO bunc O O i 
1 lc/w! i-number of open file i 
1 
aon | a a aa ee enn a ! 
device number i 
|-------- a e -----| 
| offset norneer, ises, r/w pointer to file} 
eres krone Pate a ne ER, ! er ey E ere Y O i 
[flag that says file | number of processes | 
| has been deleted | that have file open d 
2 | ! 
| i 
€—€——ÓÁ—————- 
" | 
m a US ES QUO SOS E SU OE DU GE UND O ED UD. QUUD GI Dueb mH: GA RT UD ar^ DD NE ED GU qu ¿o OA SAE SO YS a et — I 
| | 
a qum GEN CARO BUD SU o O quis CS aao Cs Ar dla 4^ e alee an E AT EUR O E OS EE AS O R O NUUS ol QUAD UND AO. gah E CHE aioe MS cra. i 
i 
5 | | 
| | 
i | 
Issue D Date 3/17/72 ID IMO.1-1 
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UNIX IMPLEMENTATION 


7. Process Scheduling 


Processes are scheduled to run according to a priority structure 
which is implemented via the rung table and the p.link table. 


rung: 


| These two tables are described below. (diagram on page 9) 


THE RUNQ TABLE 


is a table of length 3, with one entry for each of the three 
ready-to-run queues of processes. The low byte of each 
entry contains the process number of the first process in 
the queue; the high byte contains the process number of the 
last process. The entry is 0 if there are no processes on 
the queue, Each queue is linked by the p.link entry in the 
process table. Eoo 


process number of last process number of first 


runq 


process on queue process on queue 
highest  |------------------------ | Ll[l]BlLlL——------------——--| 
priority | 7 "4 2 | 
queue | cu O EU ewan Bret en OUI GP. EEE eT QUO CU ¿UA A qu D. ute qUD QD CD. ! au AO A AMD MOI AUI UND Qui UND GNO AND QUD VIVO QUU QU QUUD GP qUO QUO RUD Sr | 
6 | 3 I 
lowest | sem Cl qu tuo QUD Qus UMP. UU) UND UND UI. OD oD OD HOSES QUID a A Vu» SD a E a { et eal l 
priority | 10 ! e 4 ! rung+4 


queue | amm em ee QUU UM 200 100 EL QUU OR SU A SO ee GP UA E quos EDS UD UU A em M a | 


To demonstrate the interaction of pelink and rung: . 
If the priority of process numbers was arranged as follows: 2, 8, 


7, 3, 


1, 6, 4, 5, 10, p.link would look like. So, the process 2 


is found in the 2nd slot of the p.link table. In this case pro- 


cess 


8. 


slot numbers - () 


| 8 (2) | 6 0) | p-link + 
A o O sand 1 H 

por ep m A a Ss a 

| 4 (6) | 10 (5) | p.link+4 
A i - a e. que mo cu ov qe is) que que De. $ 

| 7 (8) | 3 (7) | p.link*6 


| | | p.link*nproc (16) 
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UNIX IMPLEMENTATION 


8. Terminal Control 


The handling of character oriented devices (tty, lineprinter, 
console tty) is done via several tables and buffers, namely: 

The character count table cc , the first character pointer table 
cf , the last character pointer table c] , the character 

list clist , the tty control blocks tty , the tty buffers 
buffer” and the time out tables toutt and touts. 


The tables cc, cf, cl are structured " 

such that each entry is associated with the input or output 

of a specific tty or other device. The exact structure is shown 

in the diagram for these tables. The clist contains linked l 
lists of characters associated with each device. See discussion in 


Section F. 


When an input interrupt occurs from a specific device 

the interrupt routine puts the character received at the end of 
the clist string for inputs from that device. When an output 
interrupt occurs the next character on the clist string for 
outputs to the device is popped off the list and is transmitted. 
If the character being output generates a delay (1£, cr, ht, 

vt) the appropriate entry in the toutt table is set no output will 
| be generated while the toutt entry is non-zero. Each clock 
generated input causes every non-zero toutt entry to be 
decremented. When a toutt entry becomes zero, the associated routine 
named in the touts table is called. E 


The tty buffers are used for editing the input clist strings 

for the tty's. When a sysread on a tty is done the clist input 
string for the device is scanned and put in buffer 28 f, 8 cr 
or deletes are found they are stripped from the input and 
appropriate action is taken. B i i i 


Issue D Date 3/17/72 ID IMO.1-1 Section F Page 13 


UNIX IMPLEMENTATION 


TTY BLOCK AND BUFFER 


I. TTY BLOCK 


o [oe ee — MG 


| column tty is in | tty 


I 

t rnm má | : 
sleep queue ,wakeup | char left over 
queue, cc offset | after lf 


| A sl rr 


tty+2 


| 
oan are ttn tad cam. et ant DUNS APUD FIND uE + 2 uut vot oed ee Loc NR A aba mm | 
i 


flags 
| cr, tab, sp, raw, echo 


i 
! 
i 
QN aub adis amp aur nD TER GAAP AUD OED OR SUD MIRO QUON. sut Aut URP Apo. uncle diti) MA B w= | 
> 
1 
i 


tty+4 


pointer to tty buffer tty+6 
| rd AU SS QUE aD endo ARA GD OF O OP UID O GP map vtm AD. CE AUT AUD. OAD AUD. E A LD QUID IES acq, GS CE a O ti EOS O O AND AOD AD GA 


tty+4: bit 7 - parity 37 

- parity non 37 

- raw 

echo 

- caps to lawo cast 
= tab to space 

- no delay 


O = y YW ¿Au Or 
y 


II. TTY BUFFER 


| opam ttp ue quib. A EEE ED PD Se cn bd | 


[| à 
1 pS 
| | number of processes | buffer 
| | using this tty 

L| 


| a e e e e mee me me ee am: ea =e H O rub E ENEE E T CU a O QUE OTIA Ub TED usb Ue cun erap VP io QD. 


l char count buffer+2 
| character pointer buffert4 
| ei iu cs gc Sl se PCD deg) PU Up o0 UEM ao fto | puv---—————————— e. 


| | _interrupt character buffer+6 


H COD LO DID pot web A LO CU 100 GO e 0 ctun G amus rh o 4D qM A D i unite a tus t ED 2 2040 SU AG JUD AP OE FUE LOD agus NE ^O quib te B PA UMP SU 


buffer*8 


eS A tr rd 


buffer+1 30 


| 
| E ri e ac | em a ee RO ER ts ee tee a ee as NU eee, e oe can) AND a 
| char 2 | char 1 buffer+10 
MD amm e asa, ll: LO CO DF on DoD O UE QUID O Ges VEE Qe UMP DO IR CUR [ e sx CO UP LAND AMENS DEED QGES VEND emm OR Guam. AR Mer aV eRe gue ay MS IMS Ld to D 
| char 4 : lo. char 3. 
qm «mm anth a qum m vni CP Sacr ata. IUUD. LAND urn MAR dd | ev eer yet rdi sab GUN. qu ee ueAD oe Te A A CD AP ot LU OR A A A. 
| data | 
GM tu ceto B oO tt — Ad | sam dius mim UO zd» OUND MD 4.25. OHD 115 TD UD UA OND GE SOUP lo P P o ed area 
e 
e 
e 
| 
1 
i 
i 
] 


a rbd 


buffer*138. | 


ee en OD red eae AT Se Ce ET OND APES SO SES nS SENS PAD AO ED SEED Sap Gy SOP SEG GAO SS SE ES SP eS SD RED ee OO NY UD SD OD 


000 Am UD CRED en SAD O atram HORE cusam 000 OD 
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TOUTT, TOUTS TABLES tint «eld by ded 
ps E AAA 7 mba 70 call 
NL entry PN dicere tuv ento c TROU (amy e 
gu m | outer Yat Yate 
| tty2 "| | ttyt entry ^ | toutt*4 
i^ xwa c | wa o] toutt+6 
| eo [o eus 77 | testen 
NEN Ue A toutt+10 
po Tr MSIE unit du uM MEM toutt+12 
EIA MESSI | toutt+14 
[console tty eubroutinel RN porne | touts (tout+16) 
ec ea dt 

| hip) | 


| | 
f * 5 K ` 
| m Ag Fa 


touts +30 
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cc, CF, CL & CLIST TAELES 


asm nay die eer arm Qe UU ía 





l 

t 

I 

l 
i | 
| per * d ppt ecc+2 

| re ee ee ee ee ae A A Ll de OTe AAT AASE oe mer i br Da (IG Com ARTI Sup amt QM. quam mur. am "ad Wf ve^ com) sod ML alle CU OO Ve AM APP. O VN. UMS VD [P tt 
| lp | cc*t4. 
MM MC Um MER aor T. ead suiit velas mem. de m ws GR. Qc GM GAL AL wi Up SUD aes lud enm evo MN am ene | 
ue ee See IE SIUS I u | 
| ttyO | ttyO Ccc46 | 
I | 
d GMED dip QUUM PUNTO. ne CU pe UD. uot A QUUD: aa a E NT 1 TRA a ogee > ge. SEE ER Qus aps pne grams dale me an cus | 
| tty1 tty1 cota 
| tty2 Š " | tty2. > Pe cc 
tty3 | -tty3 ccm 
Fears auia ee citar na i seno AR Ch AR BIR CO JU RR VINE II MO DI O pum mtem A CAN cal E Ka A t ER TEO quie NE A GEO CT REY pat I IO O OY dio Mili rd 

. | f à * | 
. i i * | 
em aaa a a gee eee ee | MEC ee pe ee re ae An pomp ap ceci gg Ehe Mns uum o ONE | 
tty? tty7 ccuD 


GM "HP QU QUE QUE. QU UI QU VD. MID QD UNE qs tes QUI DU BEEE cum D VN US AO £00 MD A AUD GUT. MD OV. 


cc+2 


| 
| 
| 
| 
| 
| 
| an oee a e merae oee me me me m aee e m ma e oae a e ae 
| 
| ———————————— 
| 
| 
| 
| 
| 


A ES OD A EE SAR OE COD R E e a SA SAG AO S, OO EE OGE O erp A ND a a SE OO A O dem aa a TEED an mam a em 


. | . 
. | . 4 
. | e 
eid TERE era ums AO At ee simo RE O. ETE O ae ERA OME ANP mew qum. Yee ahaa AE ines oe Jai spe Sie Bate TO i 0 MR GS UD 2 LS E GUDD Ce Se (UMP PRL ee Guns GL FRIA A quam qux Gio un^ FO O CD oe Oy a D. um 
| cc48 
| Re eee ut on mee tuo mm e Mn o ere 0D m D, 1 uium onem din um cm UIS um et dom uua quo quer a t | 
Iconsole inf'1st char offset lfree list 1st char offset cf: 
|-----------— A | mmm | ect 
] ppt info ar offset [console outf*tst char offset cf*2 
| : | ppt out 1st char offset | cf*4 
ER EA A IR” EE E E OA | 
| ttyO inl"first char offset | lp | cf*6 
i 
up GND ee E ee QUU CER mes ee SEU ST NUUS QU. eet cee PRO quie quis aria FUE GP AME FO A 1 eee es anan an O amo an me on QUO AD SD ae AO OEE a Vu 





| ttyi "7. 6” | ttyo" " cf48 


Mum GU UD uos EMO GNU QUU LUE) O CUORE qiio CUBA LAO qui Cer MR QE. ao MI RUE quac Gres BUDE) O ques qutt | Andes CU quas cado. A OD Aus OS QUS UND GED E CUP EIU A O E SU E OM SR Ga AO O SR DID. 


[| 

I 

| 

e n | . | 

. | . | 
. E * E 

| 


et 
et 
< 
» 


umb HM O Chis ARA Gut pees ARES co BOUE EI, ODER: GU CR sus des duas. Si dinh GA EN AMD aA CUP AU CIO GE eae UD D GAS UU. QUU QUE SUL EU QUE E MID ODD. GU) OU AUD. SUP. VIP TD. O IA QUIT. QUUD. AL. URNA QUUD AUDI. HDD AP TD A. | 
e | * | 
. | . . ` i 
Shin freelist last char offset | | cf-4p 
4 rd mmm erm P d a emote | 
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console Pra char of x E a char off cl*1 
MM MR MENS crgo sop men BA hes apto APR. ED AS on iD ai E dtes eC CE UP. CREE BE Medi (MNT 2 0 UA er vllo quier VM i uet mte ee ON WT T gy Lol A d 
s + oe Lad w n a 
ppt | ppt c1+3 


cl+5 


lp we LL kad es . | 
EtyO | oF v." LL | ttyO we a 


am UN Quo m qu AOS AUD UI. IRD URE LI ORD <> 009 GD QUPD SI BAI O ch O quas GTS UR SOE TEN Dd a OD 


cl+7 


¿O aeaa LE D ED CE A TOR CD SO a CED OE ee OD SE a. 


i Loi "v we LL] 
tty? ? ^ tty? c1+21 
c1+23 
. 2 . 
e. f . 
2 H eo d 
Aq MEX Pes ates alm cU ETT Km poro C04 POUR ot aure Oe QED RUD dis (UD oem XIV Qui PD p ! Gub AUTO DUO. DID 0000 csi QUI) CT TT VIQR BD SGU vd KIND ONS a GERD a 200. SD DO HDD. DUD ED TU VS OOD R 


Gb cum EU qua quii a un 0 ESAE TENDS OE AI UID CO AND. OD QUID iit MIB: BUR, 4.00 AUD CD VEDO. i UT: SEO (UM UD alm «FID QUUD. VHS IND AME UD. PAID an AUD QUID (QUE QD QUE AMI) ED a AD ^o A RAD AE Lal m 


pointer to next char (0) | character (0) 


auus AS ED quib QUE ES DU ian OU. ERD EDO AO SED b (MER DD OTE GR QUE up ep caa A o GUA GO EIS ED US | CU esa DUO H0) EVO ¿al PO QUUD O CO E ADAE E E a GUN co, LOS MD. UM O O GIO A a Ss Ga I VD 


clist (c1+3 


OO mn oo ro 2 O ET SS Rd ND DO WN 9 ! ami moe pm Um ave sam ques quo P quet ques tu UPS qu quie mum ve viam AUD Lo tdi ABO A tnde rs 


$ 
| 
[| 
[| 
l 
[| 
[| 
[| 
| 
| 
[| 
[| 
{ 
| | c1+29 
| 
| 
i 
[] 
| 
| 
| 
[| 
| 


pointer to next char (204) | character (204) 


A dd 


clist+508 


anan eas LESS SETI DI ED ——— A AS OS SE A SOE OD OE O O ew et ae SUR SE OOD SR A e A AO meme 
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active - 
is a word whose bits encode the activity states of the vari- 
ous block-structure? device controllers. If the FRK disk bit 
is on, thet device is running an? should not ke rolested. 
The devices for the bits are: 


bit ^ device 
O arum 
1 | giek 
2 dectape 
buffer - 
etart of the buffers used for block-structure? device I/O 
(there are "nbuf" of ther) and typewriter input (there are 


ntty of ther). 


From buffer to buffer + 1119., are the © tty buffers. Fror 
buffer + 1120. to buffer + 1259. is the console tty buffer. 
Fach of these buffers is 70. words lone. From buffer + 1260. 
to buffer + 4321. are the disk buffers. Thev are 256. words 
each plus 4 words which represent an I/C queue entry. Thus 
each block is 260. words. Pointers to these 260. wor? 
buffers are contained in bufp. bufo contains pointers to the 
I/O queue ontrvs of each buffer. For more information, see 
E.O, De 2. 


bufp - 
contains pointers to the block-structured device buffers. It 
is 9 words long. The first 6 entries point to the I/C queue 
entries of the 6 buffers. The last 3 words contain: 
sbo - address of I/O queue entry for the super 
block of the PF disk. 


sbi - address of I/O aueue entry for the super 
block of the dismountable device. 


swp - address cf T/O queue entry for the core image 
being swapped in or out. 


cc - 
is a 30. byte table. Fach entry conteins a ccunt of the 
number of characters in the associated queue for that entrv. 
The characters have either been received from a character 
oriented device, or are waiting to be output. 


cdev - 
The current device number. It is set uo during the scan of a 
file name, and is an implicit argurent to the routines which 
do I/O by device block number. cdev= O-drur, 1-disk, 2... 
dec tape. This parameter is 1 word. 

cif - 
is a 31. byte table, Fach entry points to the first charac- 
ter in an associated character queue, The first entry refers 
to the free list of character blocks. The pointers are 
offsets, divided bv 2, in the clist table. 
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cl - 
is a 31. byte table Fach entry points to the last character 
in its associated character, ,queue, The pointers are offsets, 
divided by 2, in tbe "clist" table. 
clist - 
is a 510. byte table containing linked lists of input or cut- 
put characters. Fach entrv is a word; the low byte contains 
the character; the hich byte contains a oointer to ¿the next 
byte in the list. The pointer is a word offset in "clist". 
clockp - 
points to one of the clock cells in the super block (1 word). 
core - l 
address of the beginninc of user core. 
dae - 
disk address extension error reg. for RF-11 disk. (See Sec- 
tion C, pq 35) 
dcs - 
Aisk control and status register. (See Section C, ng 34) 
deverr - 
a seven word table containing tre error status of devices. 
The index into this table ie the device no. ‘cdev’. 
word device codes 
1 drum ` Os no error, 1= error 
2 disk . 
3 dectape units Md 
4 we ee 
: 3 
7 n e 
ecore - 
address of the enc of users core. 
feb - 
this table contains 8. bytes for each currently open file. It 
must be kent on a per-svetem basis since the same instance of 
an open file can be referred to by more than 1 process. This 
table has 1 entry for each “open or "creat" call, Each 
entry contains information about an open file. The feo table 
is indexed by the u.fo list. (See Section F, ng € fcr de- 
tails.) The table is 400 bytes lona. ; 
idata - 


This 448. byte area contains assembled root, device, binary, 
etcetra, user and temporary directories and the cold hoot 
initialization program directory. (See Section F, ozge 7 for 
a description of directory structure. ) Preceeding each of 
these assembled directories establishing i-noles for the 
directories, Namely; 
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A = i-node number 
R B = i-nod’e flags (See Section F, n. 5) 
D c C = number pf links 
E D = user id of owner a 
E = directory size in bytes 


Following the 4 word area is the directory associated with 
it. These @irectories are used in initializing the system 
during cold boot, 


idev - 
the device number of the current i-node (1 word). See it. 


ii - 
the i-number of the i-node currently in the ‘inode’ area of 
core (1 word). 


imo? - 
a flag set when the current i-node (ii) is modifie?. 
Whenever the current inode is chanced, or whenever an exit to 
a user program takes place, this fiag causes the i-node to be 
written out, This flag is 1 byte. 


inode - 
lays out the structure of an i-node, Each i-node (32 bytes) 
specifies a file. While a particular file ie unter con- 
sideration, a copy of its i-nole resides here. The current 
i-node number is kept in ii and its device in idev. 
Labels beginning i. refer to locations in this area. ~ (See 
Section F, og. 5.) 


i ctir - 
creation time of the file. (2 words) 


start location of an 8 word ‘address’ portion of the i-noe. 
Fach word contains a physical block number, from which a phy- 
sical block address can be calculated. The index into this € 
word section of the inode can he considered a logical block 
number. if the file associated with the i-node is srall (< e 
blocks). If the file is large (> 8 blocks), the phvsical 
block number indicates an indirect block which contains 256, 
words, each of which contains a physical block no. for a 
block asscciated with this file. A zero physical block no. 
in either the address words of the i-node or in an indirect 
block indicates that the corresponding block has never been 
allocated. 
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iflos - 
flags (1 word) for the file are coved as follows: 


Bit e set indicates - write, non-covner 

: 1 " — read, non-owner 

ds 2 A - write, owner 
3 ome - read, owner 

4 » - executable 

a 5 de - set user ID on execution 

5 6 we - These bits are not assigned 
7 = 

7o 2 : - : 

ee 9 Lid S we 

we 1 0 we ui Lid 

we 1 1 oe d 
12 - large file 

E 13 E - file has been rodifie3 (alwave on) 

” 14 > - directory 
15 - i-node is allocated 

i.mtim - 


modificaticn time of the file (2 words). 


i.nlks - 
number of links (directories) this file appears in.  (1bvte) 


i.size - 
size of file in bytes. (1 word) 


i.uid - 
id of the file cwner (1 byte) 


lks - 
chock status register. (fee Section C, pg 36) 


mmod - 
corresponding byte flag of  imod above for the currently 
mounted desmountable file syster. 


mntd - 
is the internal device number corresponding to the device on 
yhich,a remcvable file system is mounted. It is used witk 
mnti . (1 word) 


mnti - 
records the i-nurber cf the (iniaue) cross device file. That 
is, whenever this i-number is referred to on the PF disk, it 
will be translated inte tre root directory on the mounted 
device. (1 wor3) . 


mount - 
is the in core imace of the super block for the disrmountable 
file system currently mounted. It contains the i-node map 
and free map for the device. 
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is the source of unique identifiers (nares) for nrocesses. 
It is increrented as each process is created. (1 wor?) 


nbu - 
number of block=structured I/O buffers. Presently its 6 (for 
cola boot 2). 


nfiles - 
allowable number of open files in system. Presently 5C. 


nnroc - 
number of processes, Presently 15. 


nttv - 
number of tty’s. Presently 9 


eric - 


partab - 
128. bvte table. 


ppb - 
paperteoe punch buffer register, (See Section C, p. 38) 


ops - 
paper tape punch status register (See Section C, p. 37). 


optiflg.- 
indicates the status of the paper tape file. (1 byte) 
- file not open 
- file just opened 
- file is normal 
- file not closed, error situation 


MANO 


prb - 
paper tape reader buffer register. (See Section C, p. 37). 


proc - 
is a table with an entry for each possible process. The 
number of processes is given, by 'nproc'. Its length limits 
the number of processes which can be created, since it is 
always in corc., Subtables in the process table have names 
beginning with p.. 


u 
nh 
m 


paper tape reader status register. (See Section C, p. 37). 


ps — 
processor status register. (See Section C, n. ) 


Debrezk - 
a 16 word table. Each word is asscciated with a unique pro- 
cess and contains the first core address not used by the pro- 
cesSe : 
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peli 


pepi 


Depn 


pest 


rcbr 
rcsr 
rxap 


r«cs 


Issu 


UNIX IMPLEMENTATION 


xa - 
is a table of disk addresses for the swan area of the 15 
procerses. pedske is 16 words long Fach word contains a 


block nurber for each process. 


nk - 

is a 16 byte table indeved by process number. Given that oa 
process is on the run queue, its p.link byte is O (in which 
case the process has no successors) or it contains the pro- 
cess number of the next process to be run after the process 
that owns that slot. If process nurber 2 was running next on 
the queue and orocess number £ was next, the 2nd byte cf the 
p.link table would contain an £. This is how the next pro- 
cesse in line is linked to the cne ahead cf it. 


A - 
is a 16 word table that contains the unique identifier (or 
nare) of a process. It is indexed bv 2 X (the process 


number). The name of the process is actually a unique 
number. 


id - 

is the unique identifier (name) of the parent of the varticu- 
lar process. The table is 16 words long and is indexe? bv 2 
X (the chilis process number). This ie where a child 
searches for its barent. Process number 2 woul? lock in the 
2nd word of the peprid table for its parente 


at - 
e 16 bytes long. Fach byte represents the status of a pro- 
cess. Fach byte is indexed by the process nurber. The 


status's are as follows: 

O — indicates the process is unused or free. 

4 - indicates the process is active eq, 

2 - indicates the process is waitinc for a process to die. 

3 = indicates a zombie (the process has died but it has not 
been waited for.) 


receiver buffer register for the DC-11. 


receiver status register for the DC-11. (See Section G, De 
2€) 


address of the drum buffer I/O queue entry. It is passed as 
an argument to trapt . 


address of the disk buffer 1/0 queue entry. It is use? as an 
argument to trant e 


control status register of the disk. (See Section C, p. 30) 
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rkda - 
disk address register, (See Section C, v. 29) 


1,2 
reas 


- 
c s * 7 
GISK - 


h 


ive status register. (See Section G, n. 28) 


rootair - : 
ia the i-number of the root directory. It is set to 41. by 
the initialization code and is never chanced. 


runa -= 

ie a table of lenctkh 3, with one entry for each cf the three 
readv-to-run queuss of processes. The low byte of each entry 
contains the process number of the first process in the 
queue; the high byte contains the nrocess number c£ the lart 
process, The entry is O if there are no processes on the 
queue, Each queue is linked by the p.lin* entry in the pro- 
cees table (see above). 


g£bO - 
is the I/O queue entry for the super block for the »erranent 
fevice (PF disk). It is 4 words lona. 


sbi - 
, is the I/C queue entry for the super block for the disrount- 
able device. It is 4 words longs 


smod - 
is a byte flag that is set whenever the super block is medi- 
fied. During an exit to a user procram, the super-block is 


written out if this flag is set. 


swp - 


is the I/O queue entry for the core imace being swapped. It 
is 4 words long. 


sysflag - l 
tells whether execution is going on inside the system or not. 
It is 0 if a system routine is executing ance if a user nro- 
cram is running. This is a byte flag. 


estacx - 
is a temporary steck used to store the stack during swans. 


systm - 

is the in-core image of the super block for the RF fixed head 
disk. It is updated onto the RF wherever it is changed. 
This area consists cf 130. bytes cf free-ctorage map 
(described in Section F, Pe ), 64. bytes of I-nede mao 
(described in fection F, p. ), and 22. bytes of time ac- 
counting and error count information, Labels in this area 
start with *s.* 


s.chargt - 
is the time charged to users. 
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s the Crum error count. 


et - 
he time the eystem is idling. 


n 
. 
i: 
en 
tre 


s.syst - ] 
is the overhead time durinc which the processor is executing 
in the operating svstem code. 


g.time - 
is the total time since the system was last ccld booted. 


s.ewait - 
is the disk I/O wait time. 


tcan - 
is the pointer to the dec tape I/O queue entry (1 word). 


tcba - 
is the bus address register of the DEC TAPE., (See Section C 
De 32.) 


tcbr - : 
is the transritter buffer register of the DC-11. 


tccm - 
is the comrand register for the DEC TAPE. (See Section C, 
32) 


T 


tect - 
is the data register for the DEC TAPE. (fee Section C, De 
33) l 


tcerre - 
(4 word) 


tcsr - 
is the transritter status register of the DC-11. (See Sec- 
tion CG, De 27) 


test - 
is the control and status register cf the DEC TAPE. (See 
Section C, o. 31) 


tcstate - 
is the state of the DEC TAPE, e.g., idling, searching doing 
T/C. (1 word) 


tewe - 
is the word count register of the DEC TAPF, (See Section C, 
De 32) 

touts - 
is a 316. word table. Fach word, if non-zero, is the entry 
voint of a subrcutine, The table de used to  imoloment 
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interval timing in conjunction h the ‘toutt’ table 
described below. 


toutt - 
is a 16. byte table. data is a counts, At each clock 
interrupt each non-zero,gthe corresnonding touts subroutine 
is called. All entries in these tables are fixed. 


tkb - 

is the tty reader buffer register. See Section C, p. 39. 
tke - 

is the tty reader status register. See Section C, p. 39. 


tob ~- 
is the ttv punch buffer register. See Section C, De 39. 


tos - 
is the tty munch status register. See Section C, De 39. 


tty - 
contains 8 bytes for each NC-11 communications interface con- 
figured. Control and status information is kept therein. 
These are referred to as tty blocks. There are nttv (o) of 
them. The last one is for the consola ttv. For their con- 
tents see F, vace 11. 


ttyoch - 
is used curing output to the console typewriter. (1 bvte) 


user - 
is the start of each users data base. It resides just below 
the users core area and is swapped with the user. A11 loca- 
tions in this section begin with u. 


u.e.base - 
holds the "users buffer address in core during read and 
write calls. Also points to u.dirbuf in mkdir . 


uebreak ~ i 
holds the process program break point as set by sysexcc or by 
a sysbreak. It is the location at the enc of the users pro- 
gram used in the swap routines. (1 word) 


u.bsys - 
is set while a process is about to be terminated for some 
error. A core image is produced. (1 byte) 


u.cdev = 


holds the device number of the users current directory. (1 
word) 
cdev device 
O drum 
1 disk 
other dectape 
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u.cdir - 
is the i-numher of the processes current directorv. (1 word) 


u.connt - 
is the nurher of bytes to be transferred during read or write 
operations. This variable is 1 word. 


u,dirouf - x " 
usually holds the ienumb=r cf an i-noce in mano? and 


“mkdir. (The i-number of a new i-no3e) v.dirbuf + 2... 
u.cirbuf + a hold the name of the file in the directory en- 
try. 


u.dirzo - 
is either an offset within a directory for a file mentione 
by the user or a pointer to an empty directory slot during a 
creat . It also points to a directory entry in namei. (1 
word) 


u.fofp - 
is a word that contains a pointer to the 3rd word of an fsp 
table entry. This (3rd) word contains an offset (in bytes) 
into the file asscciated with the fep table entry, and is 
used during read/write operations. In initializing eoaecial 
files, u.fofo points to u.off., For bread and bwrite,  u.tofo 
contains a block nurber. 


uefp - 

is a list of users open files. An entry is either ©, for a 
non open file, or is an index into the systems feo table 
(table of open files). Fach byte in the list contains an 
entry. The list is 10 bytes long, because 10 is the maxirur 
number of files a user can cpen at once. The index into this 
u.fp list is called a file descriptor . It has a value from 
O to 9. 


usilgins - 
determines handling of illegal instructions. If us. ilgins is 
O - the normal instructicn trap handling is done the process 
is terminated and a core image is produced. 


If u.ilgins is 


a location - control is passed to that location when the trap 
occurs. This feature is used to implement the floating voint 
instructions. (1 byte) 


usintr - f 
determines the handling of interrupts. If u.intr is zero - 
interrupts (ASCII delete) are ignored. 
is one - interrupts cause there normal result, ie, force an 
exit. ; l 
is a location - control is passed to that locaticn when an 
interrupt occurs, (1 word) 


u.namop - 
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is a pointer to a file name menticned by a user to the system 
Jurina system calls. (4 word) 


wenread = 
accumulates the number cf bytes transmitted Auring read or 
write calls. (1 word) It is passed back in ro on return. 


u.cff - 
is either a pcinter to a file offset mentioned? by a user ður- 
ing "seck" : and “eer” calle or a pointer to en emntv cirecteo- 
ry slot in "rkdir" or a pointer to a directory entry es in 
"eysunclink”. (1 wer?) 


uepri - 
kelis the wrocess priority expressed as a pointer to ene of 
the three run oueues (in one word). I£ another process with 
hicher priority becores realy to run while this process is 
running, the remainiig tire cuantum is set tc zero. 


u.dauit - 
determines the henóclinc of quits. If u.auit i. 
O — quit signals are icncreá (ASCII Ff). 
1 - cuits are re-enabled anc ceuse execution to ce=ne ena ^ 
cora imago to be producode 
e location - control is transferre? to that location when a 
quit signal is received (1 byte). 


u.rO — 
points to the location where the users rf was stored on entrv 
into the svstem (and where it will be restored on return). 
It is used to pick ub an? pass arguments., Most often it 
passes file descriptors. (1 werd) 


ueruic - 
holgs the real user id number. It is not chanc ed Yer the 


Li 
set-user if bit being cn in an inode during a sysexec (1 
byte) . 


de LS) = 
is used to save the value of the users so recister after ell 
the other recisters have been saved. It is used to restore 
the sp when returning to a user so the svster need not takes 
oe to nop everything off the stack before returning (1 
word). 


u.ttvo - 
is a pointer to the buffer off the tty that is in control of 
the process. The control tty (typewriter) is the cnly one 
which may quit or interrupt a process. 


unid = 
hol?s the user id number used to 4eterrine protecticn (1 
byte). 


usuno = 
is the vrocess number. In sysfork it is the parent »rocecs 
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purtor.. In sygexit, it is the process nurber OE u then Syin? 
process. In Swen it is the number of the >rocres beins 
swapped out. 

u.ucp = 
is the contents of the sm at the rorent the urer is ewanned 
out. It must be. saved so that the anorooriate return can 


a 
take place efter the user is swapde? hack in. (1 wor?) 


ub ct - 


is the users tire quantum, It is set to 20. when a now user 
is ewapned in. At every clock tick it is decremented. When 
it reaches zero the user ir swanped out (1 byte). 


wlist - 
is a 40. byte table of "wait channels", Each rte is ceon- 
sigered a channel, Rach entry in this table is ascoccisted 
with > particular event. When ^ process wishes to wait for 
cne of these events, it calls a routine (sleen) which enters 
the process number in the anvrepriate channel 5^ this table. 
Vhen the event occurs, another rovtine (wek=up) wakes un the 


process, 
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~ vo; 2/allecate ttv buffers 


FUNCTION — 


Fach DC-11 interface is assigned 140. bytes of buffer snace, 
the first 140-byte block beginning at location "puffer. 
Also for each interface a 4 word block of control an? status 
type information is maintained. These 4-wor? blocks regin 
at locaticn tty , the fourth word in each lock if +2 
pointer to the beginning of the 140.-brte buffer asecicnet to 
thet device. This section of cote loade these nointers into 
the nroper places in the tty blocks. The results are shown 
in the Siacrams on H.O, nage 3. 


CALLING SEQUENCE - 


ARCUMENTE - 


INPUTS - 


ntty (number of DC-11 interfaces) 


OUTPUTS - 


(see diagrers N.O page 3), rC, r1 
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ID - uo; 3/allccato disk buffers 


FUNCTION - 
Bleck I/O 
256. words Thus 
words 


devices (drum, dis EC» dectepe) uso blocks of size 


for each of "nbuf" block I/O buffers 256. 


must be assigned. In addition to the 256. words for 


Gata each block has four additional words which represent an 


I/O queue entry. 


blecks begin at locaticn 
loads pointers to 
starting 


cala 
locations 


to 


I/O 


Thus each block conta ains 260 words. These 


queve entries 
block represent tre I/O queue entry for the block. „Three 


"buffer + 1260... This senment of 
thege 260 word blocks in consecutive 


at “bufo' .« Thus “bufo' contains pointers 


since the first four words in each 


additional „I/O, queue entries lecate’ st locations sb0 , 

$51 y anc 'swp" aleo exist an? pointers to them are also 
leacted into  bufp. Finally, the last 2 words of an I/O 
gueno entry contain a word ccunt ant a bus address, these 
locations are initialized”. The results Esc shown in tre 


2iagrers on H.C, 


CALLING 


F TATE q...” 
AFCUITN 


iZpuTE 
ro (points to first block 1/0 buffer) 


CUTPU 


lesue 


D 


SZCUENCEF — 


PES 


e mw 


Date 


page 3, 


grams E.C pace 3) ri (internal counter, r2 (internal 
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ID - uo; 3/froo all character blocks 
FUNCTIOV - 


this segrent of code initializes the cf, cl eni clist “locks 
in coro to the following state: 


255. 2 


(cf+31.) cl 1 


clist (cf + 31.) 
1 
253. clist + 506. 
254. 


CALLINC SECUENCE - 
ARGUMERTS = 

INPUTS - 

OUTPUTS - 

CALLED BY - 


CALLS ~ PUT 
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IP - uc; 2/cet up drum svap addresses 


FU 


Mmmm 
in 


CH - 

The drum is divided into 1024. blecke of 256, words., The 
hichest 64. blocks are set aside for storing UNIX itself, 
Processes ewapned to and from core ere store? on the drum. 
The area in core beginning at location pedexa contains a 
block number which is the number of the first block on the 
drum where tre process is swapped toc. There are 17 blocks 
on the rum assigned as swapping area for each process. 


This segment of code initializes the p.dska area in core bv 
supplying the block numbers for each of nproc processes. 
The results anvear as follows: 


943. p.dska 
926. 


960.-noroc*17. Delska + 2*nproc -2 


CALLING SEQUENCE - 


ABC 


INP 


UMENTS - 


me i 
> 


o ~ 


CUTPUTS 


p,dska - [p.dska + 2*nproc -2] , rf, r2 
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IP - uo; 4/free rest of Crum 


FUNCTION - 

This nortion of code is executed Aurine ‘col?’ hoot. (See 
UNIX Programmers Manual - Foot Procedures VII.) It initial- 
izes the core imace of the super block for the fixed head 
disk. System (which represente the number cf bytes in the 
free storage map) is set to 128. Svetem + 130. (which 
represents the number of bytes in the i-node ran) is set to 
64.. See Section F, pp. 1,2). locks 34.,...687. on the 
drum are freed (the corresponding bits in the free storage 
map are set). These blocks are for user files. 


CALLINC SEQUENCE - 
APCUMENTS - 


INPUTS - 
ri contains the number of the hichest block to be freed. 
(See inputs for ‘free’; H.5, p. 2) 


OUTPUTS - 
systm, systm + 6, systm 
$ 


: + Bj. .o, Systm + 85, eystm + 130. 
(See outvuts for “free”; H.5 o. 


2) 
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ID - uo; 4/zero i-list 


FUNCTION - i 

This portion of code is executed during ‘cold’ boot. (See 
UNIX Programmers Manual - Poot Procedures VII). It zeros 
blocks  1,..., 33. on the drum. Block 1 is the 2nd block of 
the superblock for the drum. (Block O is the 1st block of 
the superblock. ‘However, since the in core image of the 
superblock (see UNIX Implementation Manual - p. 3) is updat- 
ed onto the RFO3 whenever it is changed (can be changed by a 
call to 'free', updated by a call to 'sysret' it does not 
have to be zeroed.) Blocks 2,..., 33. are used for i-nodes 1 
thru 512 (see Section F pp. 1,3,4,5.) 


CALLINC SEQUENCE - 

ARGUMENTS - 

INPUTS - 
ri contains the number of the highest block to be zeroed + 
1. (See inputs for 'clear' H.3, p. 1.) 

OUTPUTS - 


Blocks 2,..., 33. on disk are zeroed. (See outputs for 
*clear” H.3, p. 1.) 
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ID U1;3 badsys 


FUNCTION - | 

bedsys is called either because the user executed an illo- 
gal trap. type instruction cr because a t-bit trap occured, 
(The t-bit is used to implement the onit functicn.) “badsve 
first „turns on the tad syster flag (v.beys) and the calls 

namei with u.narep pointing to core e , The core image 
file is then opened for writing via iopen . If the file is 
net found, and i-node whose mode is 17 is made hv maknod , 
and the i-number for that node is out in rl. Parameters to 
write out core area then set un anc the core imace is writ- 
ten cut in tre users directery. Then the users area of core 
is written cut and the file closed. svsevit is entered to 
terminate the process. 


CALLING SECUZNCE - 
bhis badsye 


ARCUMENTS - 


INPUTS - 
ri - i-number of core image files i-node u.dirbuf contains 
i-number of new i-node mode bv  maknod . 


OUTPUTS - 
u.bsys - turn on, Its tre users bad system flag. 
usbase - holds address cf core , and user durinc write i-calle. 
u.count - users byte count to write out, 
uvsfofp - contains file offset. 
u.off - set to zerc. 
ri - has i-number of core image file, 


«Section H.1 Page 1 
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ID U1;7 error 2 


FUNCTION - See 'error' routine 


CALLINC SEQUENCE - B 
ARCUMENTS - . a 
INPUTS - s 


OUTPUTS - 
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ID U1;5 error 1 


FUNCTION - See ‘error’ 
ARCUMENTSE - " 
CALLING SECUEBOP =- " 
INPUTS 2 i 


CUTPUTS - 


‘Tesue T Tate 3/17/72 





Section H1 


Pace 3 


ID U1;2 error 


FUNCTION - 
” n 
error 
(e-bit) ane 
sequence. 


‘merely sets 


CALLISC SECUENCE 
conditional 


ARCUMENTS 


TS - 
processor sta 
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IMPLEMENTATION 


the error bit of the processor status 
richt into the svsret, sverele return 


branch to errcr. 


tus - c-bit is set (means error). 
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FUNCT i Cii = " " e" et s 
gtty is called by svsgtty and sysestty . It takes the 
first argument of the abcve calls and puts it in r2. This 
argurent is either the source or destinstion cf information 
about the tty in question. The file descrintor is pyt in r1 
and the i-number cf the file is obtaine3 via cetf . The 
number of the tty is gotten by (the i-number-14). If no tty 
with this number exists an error occurs. E x (i-number-14) 

is the tty bleck offset. This is outputed in rl. 


CALLING SEQUENCE - 
jer r0, attv 


ARCUMENTE - 
INPUTS - 


(u.rO) - contains the file descriptor for the tty file 
rt - i-number of file 


CUTPUTS - 
r1 - tty block offset 
r2 - source cr destination of information 
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ID U1-4 intrect 


FUNCTION Y = 
'óintract" checks to see if the process owns a quit or inter- 
rupt from the typewriter. If it owns a quit, the quit flac 
is cleared anà the T bit (trace trap) of the processor 
status is set, If'the interrupt character is a "del" (177), 
y.intr is checked to see if it is equal to the process 
core . If it is, control is transferred to “core. If 
not, sysexit is taken. 


CALLING SEQUENCE - 
br intract 


APCUMERTS — 


INPUTS - 
(sp) — contains the instruction RO is pointinc to 
u,.tty - pointer to buffer of ttv in control of the process 
(rií)*6 - interrupt character in the control tty’s buffer 
u.intr — determines handling of interrupts (See sysintr in 
the UNIX Programmers Manual). 


CUTPUTE - 
clock pointer is popped. 


- If the interrupt char is a quit character, 

(r1)+6, the interrupt character in the control tty's buffer, is cleara 
u.quit is cleared 

T bit cf ps is set 


- If the interrupt char is a "del" (interrupt) 


(r1)+6 is cleared e 
control is transferred to core if (u,intr)= core 
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ID U136 rw 


FUNCTION - 


rw1 is called bv sysread and syswrite. Tt puts the 


buffer 


pointer. (buffer) into  u.base and the nurber of characters 


(nchars) into u.ccunt If then finds the i-nurber of 


tre 


file to be read by getting the file descriptor in *u.ro and 


calling "get" . The i-number is returned in rl. 


APCUMENTS - 
N 
INPUTS - 
buffer - buffer pointer 
ncher - number of characters 
*u.rO - file descriptor 


CUTFUTS - 
u.base - buffer pointer 
u.count - number of characters 
ri - contains the i-number of the file to be read 


CALLINC SEQUENCE - 
jsr rO, rw1 
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UNIX IMPLEMENTATION 


ID U1;8 sysclose 


PUNCTION - En 
sysclose , given a file descriptor in u.rC, closes the 


associated file. The, file ¡descriptor (index to the u.fp 
list) is put in r1! aná fclose is callen. (See felese 
E.2.) r 


CALLING SEQUENCE - 
sysclose 


ARCUMENTS - 


INPUTS - 
(u.rO) - file descriptor 


QUTPUTS - 
Sec fclose outputs 
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IL U1;7 syscreet 


FUNCTION - " 

eyscrest ie called with two arguments; name and made, 
usnamep points to the name of tre file and the mode is net 
cn the stack. namei is calle? to get the i-nurber of the 
file. If the file‘already exists, ite rote and cwner rerzin 
unchenced, but it is truncated to zero length., If the file 
did net exist, an i-nole is create? with tke new role via 

rakned whether or not the file already existed, it is onen 
for writinc. The fep table (see F pace ©) is then searches 
for a free entry. When a free entry is found, the proper 
Gata is placed in it (see outputs below), an? the 
number of this entry is placed in the u.fp list. The index 
to the u.fo (alse known as the file descrictor) is put in 
the users ro. For more information, see svscreat in the 
users manual. 2b 


CALLING SECUENCE - 
syscreat; name; mode 


ARCUMENTE - 
name - name of file to be create? 
mode - mode 


IHPUTS - 
ri - i-number cf file if found 
(sp) - contains the mode arcument 
uedirbuf - if file not found, contains i-number of new file 
fso - table of open file entries 


OUTPUTS - 
if file nct found - new i-node is created (see raknco2) 
ri - contains i-number of new file 
r3 - index inte fsb table (file descriptor) 
r2 - index into u.fo list 
in free fsp entry - 1st word  i-number of new file 
2nd word device number 
3rd word Oo 
4th word e 
u.fp list - entry number cf new fsp entry 
*u.rO — index to u.fp list (file descriptor cf new file 
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IN 7117 sysentsunkni 


FUNCTION - 

unkni or svsent is the system entry from various trans. The 
trap tyne is deterrined and an indirect jump is rade to the 
appropriate system call handler. If there is a tran insite 
the system a jumn-to panic is made. All user registers are 
saved and u.sp pointe to the end of the users stack, The 
eys (trap) instructor is 2ecoded to cet the system code part 
(see tran instruction in the PDP-11 handbook) and from this 
the indirect jum» address is calculated. If a bad svstem 
call is made, i.e., the limits of the juro table are exceed- 
ed, badsys is called. If the call is lecitirate control 
passes to the appropriate system routine. 


CALLINC SEQUENCE - 
through a trap caused bv any sys call outside the syster, 


PRCUMERTS - l 
arqurents of the particular system call. 


INPUTS - 
e.syst+2, rO, sp, ri, r2, r3, r^, r5, ac, mq, £C 


OUTPUTS - 
cleckp - contains, Ss.evst+2 
u.r - points te the lccation cf the users ro cn the stack. 
rO - sc saved on the stack . 
u.sp — points to the end of the users stack. 
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ID U1:3 sysexit 


FUNCTION - 

sysexit terrinates a process. First each file that the nro- 
cess has opened is closed bv 'fclose", The process status 
is then set te unused, The p.poid table is then searched to 
fins children of the aving process. If any cf the children 
are zombies, (died but not waited for) they are set free. 
The p.pid table is then searched to find the dvinc pbrocess's 
parent, When the oarent is found, it is checked to cee if 
it is free or it is a zorbie. If its one of these, the 
dying process just dies. If its waitinc for a child te die, 
it is notified that it doesn't have to wait anvmore by set- 
ting its status from 2 to 1 (waiting to active). Tt is then 
awakened and put cn the runa by "putlu! . The Aying process 
enters a zombie state in which if will nevar be run again 
but stays around until a “wait” is completed by its narent 
process, TÍ the parent is not found, the process just dies. 
This means swap is called with u.uno = O What this does is 
that wswap is not called to write out the process and  rswap 
reads a new process over the one that díes..i.e., the dying 
process is overwritten and destroyed, 


CALLING SEQUENCE - 
eysexit or conditional branch 


ARGUMENTS - 


INPUTS - 
ueuno — the process number of the dyinc process 
penid - contains the name cf the process (See F, page 10) 
perpid - contains the name of the parent process. 
pestat - the status of the process 


OUTPUT? - 
u.intr - determines handling of interrupts - it is set to 0 
all open files of the process are close1 
the process is freed 
r3 - contains the dying process's name or number 
r4 - contains ibs parents name 
r2 - is used to scan the process tables 
children of the ¿ying process are freed 
ri & r5 are used to hold the parents orocess number 2 
If the parent of this dving process is waiting, it is set to 
active and the dying process is made a zombie an? the narent 
is put on the rund. 
usuno is cleared and the process is killed 
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ID U1;5 eysfork 


FUNCTION - 

sysfork creates a new process. This process is referred to 
as the child process. This new dxroces" core image is >= cosy 
of that cf the caller of "sysfork e The only Aietinction is 
the return location an? the fact that (u.r0) in the 014 pro- 
cess (parent) contains the process id (rp. pid) of the ney 
process (child). This i2 is used by syswait" . sysfork' 

works in the fcllowing manner: 

1) The proccss status table (p.stat is searched to find a 
process number that is unused, If none ere found an error 
OCCUrS . 

2) Vhen one is fount, it becores the child process number 
and its stetus (auetat) is set to active. 

2} I£ the parent hat a control tty, the interrupt creracter 
in that tty buffer is cleared. 

4) The chile process is put on, the lowest priority run 
queue via "putlu' n 

5) A new process name is gotten from mpid (actually its a 
unigue number) and is put in the child’s unigne identifier 
the process i (p.pid). 

6) The process name of the parent is then obtained and 
plece3 in the unique identifier cf the parent process of the 
cs. (p«poid). The parent process name is then put in 
usro 

7) The child process is then written out on disk by 
vewap. » i.e., the nerent process is copied onto disk ant 
the child is born. 

€) The parent process nurber is then restore? to u.une. 

9) The chile process name is out in (u.ro). 

10) The pc on the stack sp + 18 is incremented by 2 to 
create the return address for the parent process. 
11) The u.fp list is then searched to see what files the 
parent has opened. For each file the parent has cpene?, the 
e fsp entry must be updated to indicate that the 

hild process also has opened the file. A branch to sysret 

E then made. 


CALLIAC SECUENCF - 
from shell? 


pestat - status of a process active, deed, unused. 

usuno - parent process number. 

u.ttvp - pointers to parents process control tty buffer. 
mpid - process name generator 

uefo — list index into the tsp table. 

fsp - table of open files. 


OUTPUTE - 
pestat - byte for child, process is set to active if control 
ttv for parent exists buffer + 6 is cleared child process 
aurker io ovt on runs + 4, 
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pepid - appropriete entry in this table contains the name of 
the child nrocecs. 


Tre child process is written out on ?rum with u.uno being 
the chilóc process number and (u.rC) containing the narents 
process name. 

usuno —- is restore to the parents preocese number. 

(u.r0) - contains the childs process name. 

so+1? — cete 2 added to it to chance the return adóress cf 
the parent. m 
fsp+6 - number of processes that have opened this ‘file 
byte cets increrented in the particular fsp entry. 
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ID U1;9? eyegtty 


FURC TION - x 
"sysgtty gets the status of the tty in question. It stores 
in the three words addressed by its arcument tre status of 
the typewriter whose file descriptor is in (u.ro). 


CLLLING SECUERCE - 
sysctty; crc 
ARCUMENTE - 
aro - address of 3 word destination of status 


ILFUTS - 
ri - ttv block offset 
r2 - destinaticn of status data 
rcsr+ri - reader control status 
tesr+r1 - trinter control status register 
tty+4+r1 - flag byte in tty block which contains the modes 


OUTPUTS - 
(r2) - contains the reader control status 
(r2)+2 - contains the printer control status 
(r2)*4 - conteins the mode control status 
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ht 
S 
a 
+J 
2H 


[Ct 

"eysmiate” is civen a file nere. It gets the i-node of this 

file into core. The user is checke” to sce if he is the 

owner or the super user. If he is neither an error cceurs. 
setimod is then calle? to set the i-ncde redificaticn byte 


and the mo2ification time, but the rotification time is 
overwritten by whatever get put on the stack during a Sys- 
tire call (see systime). These calls ere restricted te the 


super user. 


CALLIZC SPCUENCE - 
syercate; name 


PRCUMTNTS - 
name — pointer tc a file nare 


INPUTS - 
usui - users id 
iuis - owners 
spt4 —- time set by super user 
E sw " "ow LII 
sp+2 = 


OUTPUTS = 


i.mtim - new modification time of the file 
imtir +2 — new redificrtion time of the file 
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ID 11:32 sysrkcir 


FUNCTION = : 
sysmkdir creates an empty directory whose name is pointed 
to by arg 1. The mole of the directory is arg 2. The soe- 
cial entries . ant .. are not present. Frrers are indi- 
cated if the directory already existe, or the user is nct 
the super user. ` 


CALLING SICUERCE - 
sysmkdlir; name; mode 


AEGUNPHTS - 
name —- points to the name of the directorv 
rode - mode cf the directory 


INPUTS - 
ueuit - user id; if its 0 the user ig the super user 
(so) - contains the second argument mere 


an i-no2e for the director: via "meknod" 
o the flag in the directory i-noñe 

set user id on execution 

executable 

directory 
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ID U1;6 sysoren 


FUNCTION = " 
eysopen opens a file in the following renner: 


1) The recon? argument in a sysopen calls says whether to 
open the file to read (0) or write (40). i 
2) The i-nece for the particular file is obtained via 


namei . " 

2) The file is then opened by iopen e 
4) Next housekeeping is performed on the fsp table and the 
users open file list - u.fp. 


a) u.fp en? fep are scanned for the next available slot. 
b) An entry for the file is created in the fsp table. 

c) The number of this entry is nut on the u.fp list. 

a) The file Sescriptor index to the u.fo list is pointes 


to by usrO. 


CALLING SFQUENCE - 
sys opens name; mode 


ARCUMENTS - 
name — file nare or path name 
mode - 0 - open for reading 
4 - open for writing 


INPUTS - 
r1 - contains an I-number (positive or negitive depending 
on whether and open for reac or open for write is 
desired. 


OUTPUT - 
entry in fsp table anc u.fp list 
*u.rO - index to u.fp list (the file descriptor) is put 
into rO's locaticn on the stack. 
r2 - used as a counter through the u.fp list. 
r3 - used as a pointer to the becinning cf en fep entrv. 
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ID U1;6 sysread 


FUNCTION - 

syesread is given a buffer tc read into and the nurbor cf 
characters to ke real. It finds the file fror the file 
descriptor lecatez in *u.rO (r0). This file 3escrintor is 
returned from a successful open call, (See syzopen „Yel, 
page 1.) The i-numier of the file is obtained via rvt anā 
the deta is rea? into core via reedi. 


CALLING SEQUENCE - 
evsread; buffer; nchars. APCUMENTE - 


buffer - location of conticucus bytes where input vill he 
placed. 


nchare - number of bytes or characters to be read, 
INPUTS - 
ri - contains i-nurber cf file to be read. 


OUTPUTS - 
*u.r0 contains the number of bytes read. 
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ID U1;2 sysrele 


FUNCTION = |, 
sysrele first calle tswen it the time quentur for e user 
is zero (see everet). It then restores the users resisters 
and torne off the system flag. It then checked, to see if 
there is an interrupt from the user by callirc isintr . If 
there is the output gets flushed (see isintr) and  interruot 
action is taken bv a branch to intract. If there is no 
interrupt from the user a rti is rade. 


CALLING SECUEKCR - E : 
fell through a bne in sysret & ? 


ARCUMENTS - 
INPUTS =- 

stack 

(s.chrgt*2) ? 
OUTPUTS - 

SC, mq, ac, r5, r4, r3, r2, ri, rO restored. 


eysílac - turned off 
clockp - pcints to s.chrgt*2 
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ID 04352 Bysret 


FUNCTION - 
syeret first hecks to see if the process is ebout to te 
terminated (u.ebsys). If it is sysexit is called. TE. not 
the follovwinc happens 
1) The users stack p 
2) r1=0 anc iget is calle? to see if the last mentioned 
i-nece has been rodified. If it has it is written out. 
3 If the super block has been rodifiec, it is written out 
bia ppoke . 
4) If the disrcuntable file seystem’s super bleck har heen 
modified it is written out to the ere cified  3evice via 
Dpoke e y 
5 LA check is made to see if the users tire cuantum y lun 
quant) ren out during his execution. If. so, “tewan is 
called to give another user a chance to run. 
€) evsret new gees into sysrele. (See svsrele for conclu- 
sion.) 


CALLING SECUFMCE - 
jumo table or brsysret 


ARCUMENTS = 


INPUTS - 
usbeys - user's bad system flag 
uss - user's stack pointer a " 
ri - used internally - set to 0 for iget call 
smol - set if super block has been modified 
mmod — set if dismountable file systers super klock has been modified 
u,.cuant - user's time quantum 


OUTPUTS - 
sp — points to users stack 
smod — cleared if it was set 
minc - cleared if it was set 
SbO - write bit is set during execution of sysret 
eb1 - write bit is set Curing execution of sysret 
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ID U1;5 sysret 1 
FUNCTION - see 'eysret' 
CALLING €ECUENCE = " 
PECUMENTE -= ” 
INPUTS - " 

- 


OUTPUTS - 
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IS Us) EVEret 2 


FUNCTION - see *everet” routine 
CALLING SEQUENCT - d 
ARGUMENTS - E 
INPUTS - E 


OUTPUTS - 
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ID U1;9 sysstty 


FUNCTION - 


'eysstteo" cets the status and mode of the tynevriter whose 
file descriptor is in (u.rO). First "cttv'" is called to cet 
the tty block and the source or the status information. 
gete is called until tte input clist is flushed. The cut- 
put character list is checked, If sore characters are on 


it, the process is put to sleen and the input list 


is 


checked again. If there are no characters, the information 
in the source is put into the reader control status, printer 


control status registers and the tty's flag byte in the 
block. 


CALLING ETCUENCE - 
syesttv; arg, 


ARGUMENTS — 
arg. — address cf three consecutive words that contain 
source of the status date. 


INPUTS - 
ri - offset to tty block. 
r2 — points to the source of the status information. 
arg, above. 
rittty+3 - contains the cc offset. 
r3 = usec to transfer the source information to the 
status registers ani block. 


QUTPUTS - 

ps - sot to 5 

rcsrtr] — contains new reader control statue 

tcsrtri - contains new printer control status 

ttyt4tr1 - contains new mode in the flag byte of tha 
block. ! 


tty 


the 


D 
. tD 
D 


ttv 


tty 
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ID U1;4 syswalit 


FUNCTION - 

syswait waits for a process to die. Tt works in the follow- 
ing wav: 

1) from the parent process number, tre parents process nara 
is found. The pepvid table of parent nares is then searched 
for this process name. If a match occurs r? contains the 
childs process number. The child's status ic checked to see 
if its a zombie, i.e., Cead but not waited for, (p.rtrt=23). 
If it is, the child process is freed en? its name is put in 
(usro). ^ return is then mate via "evsret'. If the child 
is not a zombie, nothing happens and tre search ccas on 
through the p.ppi3 table until all processes are checked or 
a zcmbie is found. 


2) If no zombies are found, a check is made to see if there 
are anv chil2ren at all. If there sre none an error return 
is medic. If there are, the perents status is set to 2 
(waiting for child to die), the parent is swa; ed out and a 
branch to syswait is made to wait on the next process. 


CALLINC SEQUENCE - 
? 


ARCUNENTE - 


INPUTS - 
usuno — parent process number (process number of process in 
core) pepid - table of names of processes neppid - table of 
parents names of processes. pestet - contains status of 
process l l - 

- free or unused 

- active : 

weiting for process to die 

- zombie 


WoO 
i 


CUTPUTS - 
r2 - used as index to p.pid, veppid, pestat tables 
r3 - used to kero track of the number of children 
ri - has parents process number 
If zorrie found - its status pestat is freed (set to C) 
- its name is put in (u.rO) 
If no zombies found - status of parent is set to 2 
(waiting for child to die) 
- parent is swapoel2 out 
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In U1-S syewrite 


FURCTION - 
sysurite is 
x 


;ivon a buffer to write, onto an output filo end 
the number o 


charecters to write. It finds tre file fror 
the file descriptor located in #*u.r (ro). This file 
descrivtor is returned from a successful open or creat call 
(sce eysopen, or. syscreat). The  i-number of tre file is 
obtaincd yia rw] en“ the buffer is written cn the output 
file via "writei". 


a Hu 


^ 


CALLIIC SECUZN 
i 


Sys 


Z 
H 


RECUMENTS - 
buffer - location of contiguous bytes to be written 
nchera - number of characters to ke written 


INPUTS - rf - contains the i-number of the file to be writ- 
ten on 


CUTPUTE - 


žur =- contains the number of bytes written 
\ 
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ID U2-9 anyi 


PUDOTION e. 
T anyi” is calles if a file has been deleted while oven. 
"anvi" checks to sec if someone else hrs opene” this file. 
It searches the fsp teble for an i-nurber contained in rl. 
Le Eat i-nomber is fount (if someone else openeaá the file) 
the "file “olsted” flag in the unper byte of the 4th werd of 
the fso entry is increrented (see P, pace 8). In other 
words the celeted flag is passe onto tre other entry of 
this file in the fnn table. Note: The same file may anrsear 
more then once in the £s» table. 
If the  i-nurber is not fcura in the fen terle (no ono else 
has opened the file) the corresponding bit in the i-nede mao 


is cleere3 freeing that i-nc?e and all blocks relate? to 
that i-node. 


CALLINC SECUENCT - 
jer rO, anvi 


IHLFUTS - 
ri - contrine an i-number 
frp - start cf table containing open files 
r2 - points to the i-nurber in an feo entry 


OUTPUTS 
coleta” flac set in fsp entry of anor ner occurence of this 


ES 


file and r2 points to 1st word of this fsp entry. 


if file not found - bit in i-node ma in is clesred 
(i-no3e is freed) 
- all blocks related to i-node are freed 


- all flacs in i-node are cleared 
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U2-6G arg 


ATTA AIT OP 3 
z USC TIOJ = 


BRCUM 


ary extracts an argument for a routine whose coll is of 
£ 
iorr: 


sys ‘routine’; arg! 


INPUTE - 


or 
sys ‘routine’; erg1; arc2 

or 
sys ‘routine’: arc1;...; arci0 (sysexec) 

QUENCE = 

dad rO, arc;  acdre 
ENTS = 
aros - adéress in which extracted arcurent is stored 
usso+t12 — Contains a pointer to cne of erg1,..., arcn. This 
peinter’s valus is actually the value of the updated ne at 


the time the trap to svsent (unkni ) ie made to process the 
sys instruction. 


rO - Contains the return efdress for the routine that calles 
arg. The @ata in the word pointer to bv the return »2??ress 
is used as the acdress in which the extracted arcurent is 
stored, 


J 


OUTPUTS - 


CA LLS 


'eddrese' - Contains the extracted argurent 
uesotie — is increrented bv 2. 
ri - Contains the extracted arcument 


r0 - Points to the next instruction to he executed in the calling 
routine. 


CALLED BY - 


evechdair, exre2, 
eysumount 


mii, sysert, syrilgins, eysmdate, cttv, sverunlink, sysfs 


4 
E c 
break, seektell, sysintr,  svsouit,, 


Y 
< 
ne 
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IUNCTI Cu = : 
Takes first ara. in system call (pcintcr to name of file) 
an? puts it in location u.snemep; takes seconí arg and puter 


it in u.cff and on tcp of the stack, 


CALLINC SECUENCE = 
jer rC, arg2 


APGUMENTE - 


INPUTS = 
usn, ro 


OUTPUTS - 
usnarep 


u.off 
u.off pushed on stack 
ri 


Issue D Date 3/17/72 ID IMQst—<4 | ON 


ID U2-4 


FUNCTION - 


CHIX IUPLTDULZLUTATICH 


See *error” routine 


CALLIKC SECUTNCH = 


BRPCUMTNTS = 


TS de a 
Liv S d 


CUIPUTS - 


Issue D Date 


3/17/72 ID IMO,1-1 


Section ".2 Page 4 


i? 2-1 error 4 
FUNCTION - See 
CHULING SrCVELCE - 


ROTI OTN 
ATS CANT S 


Issuo D Date 3/17/72 


HITX INPLEMSLTATION 


“error” routine 


w 
w 
e. 


ID IMO,1-1. 


Section F.2 


e 


E 


ULIN IMPLEMENTATION 


T^Y ul edel ? + 
PUNCTION - See “error” routine 
CALLING 2707TNCY - " 

an là ít. E wake 

y LI 
AECUUDNTS = 

ao . din we 
INPUTS - 

we 


Issue D Late 2/17/72 IP. IMO,1-1 


Section F.2 


Dace € 


ID 02-9 fclose 

POXOUYIQS = | 
Civen the file Oescripbtor (index to the u.fp list), "fclone 
first gets the i-number of the file via getf . If tho 
ienede is active (i-nurber Z C) the entry in the nef? list 
is cleared. If ‘all the processes that opened thet file 
close it, then the fsp entry is freed ani the file is 
closed. ‘If not, a return is taken, If the file has, heen 
adelcted while oven (see "deleted flag" F, page E) "envi" is 
called to see if anyone else has it open, i.e., see if it 
appears in another entry in the fsp teble (see anvi for 
details H.2 page C). Upon return from anyi a check is 
made to see if the file is special. 

CALLING SECUENCE - 
jer rO, fclose 

ARGUMENTS - 

INPUTS - 
ri — contains tho file descriptor (value = O, 1, 20...?) 
u.fp - list of entries in the fsp table 
fs. - table cf entries (4 words/entry) of open files. 

(see F, page €) 

OUTPUTS = 
ri - contains the same file descrintor it entered with 
if all processes that open file close it, the fsp entry 
is freed and the file is closed. sa SS 
if anyi is called the gutouts in anyi occur (1.2, naze 0) 
the number of nrocesses byte in the fsp entry is decremented 
(sce F, page £) 
r2 - contains i-number. 
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qe. ar 
io. SEX 


INPLOUUUTATIOS 


ID IMO.1-1 


UNIX IMPLEMENTATION 


ID U2-4 get! 


DUNCTICH - 


we w 

getf first checks te see that the user has not exceeded 
the maximum number of open files (10.) If he has an error 
occurs, If not, the index into the fen table ie calculated 


from the u.fpb list; u.fofp contains the adcress of the 


word in that fsp entry. (The file offset. See F, pace 8) 


CJev and r1 contain the device and i-nurber of tho file. 


CALLING SEQUENCE - 
jsr rO, getf 


BRRCU'EHTS = 


INPUTS - 
ri - contains index into vu.fp list 


OUTPUTS - 
u.fofp - contains address of 3rd word in that ‘sp entry. 
Cdev - conteins files device number 
ri - contains files i-number. 


Issue D Date 3/17/72 ID IMOst=4 —— Section H.2 Page P 


UNIX TIMPLPUTNOPRTION 


FUNCTION 
"isdir” checks to see if the i-nofde where iesurror de in rt 

is a Girectery., I£ it is, an error cocurs, hecavec "isdir 

ir calles bv evslink anc sysunlink to make sure directorisna 
ere. Hot. linked, If the user de the super user (ueni? = 9), 

iscir Aces net bother checking. The current i-nede is not 
disturbe2. 


CALLING SECUENCE - 
jsr r0, isdir 


al 
BEC ULENTS = 


INPUTS - 
ri - contains the i-number whose i-nete is being checked, 
ueuid - user id 
ii — current i-node number 
i.flcs - flac in i-node (this is tested to se: if the i-ncóüe 
is a directory i-node) 


CUTPUTS - 


r1 - contains current i-number upon exit 
current i-node hack in core 
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DNI AOE PESAT ATTON 


IP U2-5  isown 


FUHNC TI CN = 2 

iscun is „given, file nome. It finds the i-nurber of that 
file via narei then gets the i-node into cere vie icet. 
It then tests to soo if the user is the suber user. If not, 
it checks to see if the user is the owner of the file. If 
he is not, an error occurs, If user is the owner setimrcd 
is called to indicate the i-nc3e has been modified and the 
2nd argument of the call is put in r2. 


CFLLINC ETCUENCE - 
jer rO, isown 


APCUMENTS 


INPUTS - 
arguments of syschrod or syschown calls 


CUTPUTS - 
uuid - ic of user 
imo! = set to a 1 
r2 —- contains second arcument of the eveter call 
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UNIX IMDPLPMSNTATION 


I» U2-7 makne 


FUNCTION - 
makno? creates an i-nofe and makes a director: entry for 
this  i-ncóo in the current directory. It gets the mete of 
tho i-noce in rf the name is used in mkdir for the directory 
entry (see makdir E.2). The i-node is made in the following 
manner, First tho allocate flag is set in the meče., `A ecan 
of i-nodes above 0 begins. The i-nole map is checkes to ses 
if that i-no2e is active. IF it is the next i-node in the 


bit map is checked until a free ore is found. IF one is 
foun? a check is made to see if it ir already allocated. If 


it is, the search continues. If not the i-number is put in 
u.dir bit and a directory entry is made vis mkdir. Then the 
new i-node is fetched into core and its parameters are set 
(sce outputs). 


CALLING SEQUENCE = 
jer rO, mknoc 


ATCUMES ma 
A ie a vo em 


INPUTS - 
ri - contains mole ii - current i-number - should be nt the 
current directory mq, r? — hit position & byte address in 
-no2e map 
CUTPUTS - 
uelixbut - contains i-number of free i-nodo 
i.flcs - clag in new i-node 
i.uid - filled with unid 
ienlxs - 1 is put in the number of Links 
i.ctim - creation time 
Lectimt2 — modification time 
imoi - set via call to setimola 


` 


Issue D Date 3/17/72 Ip IMO.t-4. 
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UNIX TMPLTUPUTATIONR 


ID U2-2 mkdir 


FUNCTION - | 
mkdir makes a directory entry from the name vointed to be 
usunamep inte the current directory. Bi nie age clears the 


+ iJ * 2 N 
lecations u.firburt? - u.dirbuft+10. mir then moves n 
character ata tire into u.dirbuft2 =- y.cirmuttid, chectinc 


Pad 


each time te see if the charecter is a / . If it is ozn 
error occurs, kecause / should nct appear in a directory 
namas. 

7] pointer to an emnty directory slot is then pvt in v.off. 
The current directory i-node is brought inte cere an? an 
entry is written into the directcry. 


ARCU'ENTE =. 


INPUTE - 
r2, Usnameb = points to a file name that is about to 
become e directory entry. 
r3 - points to u.dirbuf lecetions. 


ii - current directory's i-nurber. 


OUTPUTS - 
ueCirbuf+2 - u.Cirbuf*10 — contains file name 
u.off - points to entry to be filled in the current directory 
uecease — points to start of u.dirbuf 
ri - contains i-number of current directory 
See wiir for others. 
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nul it reads 


CALLI 


ARCUME 


INPUTS 


OUTPUT 


Issue 


UNIX v 


THUPLPUSPTATIOE 
namei 


name  leadárers of in 
current directory roct 
iret charecter in the etrinco y to 
'/ ) and returns the i-nurber for the file 
operates in the following ranner: 


amei” takes 
usnamep) and 
Gircectoryv (if 
by Uuenemen 

in ri. narei 


cetrinc 
or tro 
pointed 


vy 


file may be 
to the users 
in the 
char /. 
cates 
name of 
stores 


referenced in one of two waves; cither relative 
directory or relative to the rcctdir directory; 
seconí case the file path name must begin with the 

Whenever a / is encountered in path name it inči- 
that the characters vreceeding it represent tbe path 
a directcry, and the file name following the / is 
in that directory. 


- 
€ 


Directories contain Ta ae an eee the first 2 bwtes con- 
tain an  i-number, 
with the i-nurber. 

namei  scens the filo path nare until it reaches 
the current directory until it finss a 
which matches the scanned portion of the file 
When a match is found, the i-number is taken 
matched directory entry., If namei has scannecs to 
the i-nurber is that for the Fijo. ¡specified by the file 
name, If namei scanned to B then the i-nurter is 
of the next directory in the narei scans the 

path name until it reaches a "/" or a nul, etc. If no 


is found return to noile; otherwise norma al. 


name 
NAMC « 
the 
then 
nath 
trat 
file 
file 


mC SECUZECT - 


jer rO, namei; nofile; normals 


TS 


eu 
usnamep (points to a file path name) 
uecdir (i-nurber of users Sirectory) 
ueccev (device number on which user directory resides) 
r1 - contains tre i-nurber cf the current directory (u.eair) 


Te 


ri (i-nurber of 
ec:ev 


file referenced by file path nare) 


4 


r3, r4 (internal) 

uecird - points to the directory entry where a match cccurs 
in the search fcr the file path name, 
If no match uedirb points to the en? 
2irectorv and 

r1 i-nurber of the current directory 


of the 


23/17/72 
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UIS THOLDMDPETRTICH 


U2-£ enektell 


aH 
30 


e y 
c 


extell puts the arcurents from a sysceak and evstell cell 
n webase an? u.count. It thon gete the i-nurber of the 
file from the file Cescrintor in *usr0 an? bv calling ceti . 
The  i-nodc is broucht into cora enc then uscount is checke? 
to see if it is a0,10r 2. 
If it is 0 > u.count stays the same 

i 4 - u.ccunt = offset (u.fofp) 
2 - u.count = i.size size of file 


1 


CALLING £TCUENCE - 


jer rO, seektell 


ARCUMENTE = 


ILTPUTS - 


u.5eso — puts offset from sysreck or svetell call 
uecount - put pfrname from svssesak or systell call 
*"u.rD - contains file descriptor (in?ex to u.fo list) 
i.sizo - size of file in bytes 

*u.fofbo - peints to 3rd word of fsp entry 


CUTPUTS - 


i 2 " LU] 
an i-noce in coro vie iget 
ri — i-number of file in questicn 
u.ccunt —- see function above 
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1 mm» fh 
UNIX IVPLUMPUPATIOU 


; Zo a 

"svebreak sets the progrars break point. It checks tre 
Y » H $ 

urrent break point (usbrenx) to see if it is between core 

ma the stack (Uso). Tf it is, it 18.090. an even eecress 


if it wat 020) aná the arca between v.bre2k and the stack 
t cleared. ihe new breakpoint is then put in u.break an? 
ontrol is paesed to sysret e 


CALLING £ECUFÜLTCZ = 
Xs o 


T 1 
syebreaks addr 


ARCUNTNTS 


ive wo 


addr - a 


‘al 
a 
tH 
D 
tn 
a 
Oo 
Fh 
eb 
D 
D 
e 
o 
5 
Y 
t 
D 
3 
Ww 
‘Oo 
O 
p 
e 
t 


TNPUTE - 


uepreak - the current break point 


OUTPUTS — 
uebreait = contains new break poi 
ares eur oan ola usbreak and stack de cleared if u.break is 
brotecen core an? the stack sn 
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WEES TEP DEM TON 


syrcchJir makes the Siroctorv specific? in its arsurent the 
current workine directory. 


"TTITUUC SFOQUENOT e 
ood. 


s a oe Oe Da Y. 


syschlir; nare 


ARCUMENTE - 
nome — address of the path nere of a directory terminated by 
a nul byte. 


TIT TTS 
ata aide 


i.flos - i-ncóe flag 
ri - contains i-numter 
cdev — contains device number of i-no7e 


OUTPUTS - 
rt =- contains i-nurber 
uscir - i-number of users current directory (same as r1) 
v.ecdev =- device number of current directory 
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ONIX TMPLEMENTATION 


ION - 

sysexce initiates execution of a file whose path nero if 
pcinted gus ^y name in tre svsoxec call. svserec performs 
the following operations: 


B s e ^ y > 
1. obtains i-number of file to be execoutca via "narei". 
se ow 
2. obtains i-noce of file to be executed via icet . 
3. sets trab vectors to system routines. 


4. loads arcurents to be pzssed to executing file inte 
e 


e 
highest locations of user's core. 


E 


5. puts pointers to arguments in locations immediately fol- 
lowing arguments. 


Se save number cf arguments in next location, 

Te nitializos user's stack area so that all registers will 
te Picos anc the PE cleared and the PC set te core wten 
cud rostores registers anc dots an rti. 


&. initializes u.ro and u.s>. 


0. zeros user's core down to urce 


10. reegs in executable file trem storage device into core 
starting et location "core", 


1. sets usbrezk to point to end of uscr’s code with Pato 
area appended, 
" t LAJ 


w 
12. calls sveret which returns control ct location core 
via rtí instructicn. 


entinued on pz 


E 


ge 17 
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is: 


de 
- 


svere 


d 


D 


TATIC 
ec calls 


> 
cd 

ar 

oe 


se 


ed 


ATT ts 


Rar 


E 


It 


UNTI 
when 


core 


e 


4c layout c: 


ae 


r^ 





o 
to 
O f 
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+ 
ex 
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— e opt 
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È 
in Ü a ^ ^ t- 
Oo Oo Oo C Q Lar 
$ 4 Y e A Ss 
iu G Cc . . e 
N N . . 
My . . 
e NY Vv C: 
Q 4) 
53 f 
Es 
£5 
G 
2 


Ter 


CALLING CECUERCN — 


sys 


BU CUENTE | 


Lla4 [3 a 


3 


SUIS 


I Hom 


^4 
(ett tH 


Mae 
COGO 
3 a 

s. . TEM 


ra a 
a 


< 
E) 
INPUTS 


nare 
arg. 


OUTPUTS - 


n Date 


exec; 


naren; 


P du to 
adc 


irecs of 


e, argon 


2/17/72 


TETY TUD OMITA TO 


mts 


file path name of 


file to 


ho 


table of arcurent pointers) 


(table of 


ID IMOst=t —— 


arcpn: 


arcument pointeres) 


ses P, ergo2t Can s, ene, A e 


executed 


(argument 
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WIX EL EA PLA 


In U2-£2£  cysintat 
IUMCTICH = 
"sysfstat" is identical to "evestat" excoot that it oneretes 
cn open files instead cf files given by namo. It pvte the 
puffer address on the stack, gets the i-number and checks to 
ec if the file is.open for reading or writing. If tho file 
D riting (i-nurber is negitive) the  i-number is 


set positivo and a branch into eysstat is made. 


CALLING £ECULHCX - 
fgtat; buf 


ARCUMENT - 
buf =- buffer address 


INPUTS - 
(u.rO) file descriptor 
QUTPUTS - 


buffer is loaded with file information. See UNIV Pro- 
orarmeres Manual under svsrtat (IT) for format cf tre buffer. 
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UNIX TAPLENENTATICE 


ID U2-0 esvegetuid 


PUNCTION - 
ee 


sysgetuid” returns the recl user ID of the current orocess. 
The real user IP identifies the person who is lore” in, in 
contradistinction to the effective user IN, which deterrines 
his access permission at each moments Tt is thus useful to 


w 
programe which operate using the set user ID mode, to fin? 
out who invoked then, l 


CALLING £EQUDLNCE - 
sysqetui? 


ARGUMENTS = 


INPUTS - : 
uervid = real users id 


OUTPUTS = 
(uero) - contains the real users id. 
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Ul. ED ALO 


ID U2-8  rvsintr 


PURCTION ~ = 
avsiatry sets the interrupt handling value. , It nuts the 
arcguncnt aot dee callo in sino. svcintr then branches 
into the "evsquit" routine. wetty is checka? to eee if a 
control tty exists. If one does the interrupt character in 
ho tty buffer is cleared and sysret is called. If one does 
not oxist sysret is just calles, 


sysintr; arg 


RBCUMEDST - 
arg - if O, interrupts (ASCII DELETE) are ignored. 
- i$ 1, interrupts cause their normal result, 
i.e., force an exit. 
- if arc is a location within the program, control 
is passed to that location when an interrupt 
occurs, 


IRPUTE - 
u.ttv - pointer tc control tty buffer. 


CUTPUTE - 
u.intr has value of arg. 
(11)+3 (interrupt char in tty buffer) is cleared if z 
control tty exists, 


issue D Date 3/17/72 
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were 


IMOLIMENTATIOY 


ID U2-1 syslink 
FUNCTION = 
eyslink is [given tro arguments, name 1 and namo 2. name 1 
is a file that already exists. nare 2 de the name given to 
the centry that will ge in the current directos. mame 2 
Mill then be a lint to the name 1 file. The i-nurber in the 
name 2 entry of the current directory is the same i-nurber 
for the nare 1 file. At the en? of a syslink call the fol- 
lowing structure is constructed, 
|| 1 ! t t = t 
———Ó]T |----—----—-l ———— ! 
! l | i-node | |l namei | 
| oo mm l ! for 1 ! file H 
curront i | ! name 1 | | | 
directory | ee | i file ! ! | 
1 1 ! ! l ! 
I i l t i l 
! ! ! 1 ! I 
PER NGA | | i | | 
| nare 2 entry | H | ! ! 
i 1 ! RES cd i mS 
Di o ee | | === | 1 ro | 
p e ! 
IL2]------------| 
! some other | 
| directory | 
t 
EE | 
| name 1 ! 
1 ! 
| L--------—---—-] 
CALLING SRCVENCE - 
evelink; namel; name2 
ARGUMENTS - | 
name 1 — file name to which link will be created. 
name 2 — nane of entry in current directory thet links to 
name 1. 
2 
TNEPUTE - 
unaren =- points to the arguments above. 
i 
UTPUTS ES y 
entry in the current directory with name, name 2. 
r| - contains i-number of name 1 on exit and i-number of 
current directory intermittently during subr. 
i.nlks - incremented by 1 to indicate another link added. 
iro? - set by call to Setimod, 
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Vita IMPLEEDSLENMLICA 


A Le al Ot 
- Rte eS icis 
sysvuit turns off the quit sicnal.. Ji pute theo arcunent of 
the ceall in ul lt. du55 is checkes to see if a control 


LE c cocs, tho interrupt character in the tty 
leared anl sysret is called. If one does not 
is just called. 


ttv exists, 
Burfer e. 
exist, evsret 


X NO STCUUZNCT 
CALLING 2C UNO 


Sysquit; arc 


ATCUMENT - 


arc = if 0 this call cisables quit signale from the typowriter 
(ASC FS). 
- if 1, guits zre re-enabled and cause execution te cease 
and a core irage to be produced, 
— if an address in the prograr, a quit causes control tc 
pe gent to that location. 


TM 
dei PUTS - 


u.ttv - pointer tc control tty buffer. 


OUTPUTS 
uequit - has value of arg 
(11)+0 — (interrupt cher in tty buffer) is cleared if a con- 
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ID Wet everat 


PUuctTIon - 


3 


- oe 
Sec st 


CALLING SEQUZZCE - 


rUpD TTD 
CUTPUTS - 


esue D Tate 


3/17/72 


UNT IMPLEMENTATION 


” A 
reret routine 


ID IMOÓ.fed 


Section H.2 


Pace 25 


In 025-14 —veret-s 


PUNCTICIH = 


USDA E ODLUDVEESATIOER 


Sec sysret routine 


CALLING ONCUNLCT = 


ATT Typ a 


PEA AS ive 


INPUTS - 


CUZPUTS - 


Issue D Date 
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ID IMOstod 
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UNIX IMPLEMENTATION 


" 

SURCTICN = fee sysret routine 

- oe 
CALLING SECUTLCE - 
cT ea 3 " 
PRO ds "m 
INPUTS -= " 
OUTPUTS - " 

E 

Issue D Date 2/17/72 =D INOst=1 
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UPIS ILZDLZUDTMTPATIOS 


ID U2-O sysseok 
PUNCTIOMU - 
syesook changes the r/w pointer (3rd word in ən fep  ontry) 
of an open file whose file escriptor is in uerd. 
The file feoscripter refers to a file open fer readinc or 
writine. The real (or write) pointer for the file is set as 
follows: 
if ptrnere is C, the pointer is set to offset. 
if otrname is 1, the pointer is set to its current loca- 
tion olvs offset. 
if otrname is 2, the inter is set to the size of the 
file plus offset 
The error bit (e-bit) is set for an wrdefined file 
descriptor, 
CALLING CECUENCT - 
syecseeks offset; ptrnare 
APCUMTRTS - 


offset — number of 
ptrnare - a switch 


bytes desired to 
indicated above 


move 


(Sec seektell) 


CUTPUTS = 
ustoip - points 


The r/w pointer is chan according 


= 


n ce 
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to the r/w pointer in th 
nged 
a 


the 


e fsp entrv. 


Section ",2 


r/w pointer hy 


to offset and ntrnare. 
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QUIS ee ere. 


J) (9 


cesctat rete the strtuc of file, The =racuments are the 
nema om the file end a buffer a@drese. The buffer ir 24. 
bytes dons and inforrztion about the file is plaer in ite 


7 vw ee " 
gyeetet cells narei to get the l-numter on the filo. Then 


e 
et 
(2 


^ 


DOE is called to cot the i-nc83o in core. The buffer ir 
then loades and the resulte are given in the UNIX Pro- 
gr&mmcrs Manual sysstat (II). 


CALLING PEQUENCL - 


nares puf 


PRCUUEMTS - : 
nare <= bcints to tre name of the filo. 
are 


‘ss of a 34. byte buffer 


sp = contains the adéress of the buffer 
ri - iemirber of file 


OUTPUTE - 
buffer is loaded with file information. 
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THENTA 


UNIX IFPI 

Ti U2-9 evesetuic 
eure TE On - 

5” 

eyecetui’ sets the user 

the process if (u.rO). 

and the real user u.ruid are 

use enm? make this call. 
CALLIEG SECUDN - 

ee 
RZXCUMZUTS = 
INPUTS - 

e 


(u.rC) - contains the proce 


ueruic - nie user id 
Nui = effect 
OUTPUTS - 
ueri - ge 
uui = set eq 


rae? 





i3 u. uid of the current n 
Noth 
set 


id 


t EE ual to the process 
al to thc process id (u.rC) 


TION 


the affective 
to this. 


user 


ive current user id 


ia (uert) 


Section H.? 


On ly Cae 


Pace 230 


UNIN IMPLPIENTATION 


ip U2-7 syss 
PUDCTICG. - x 
sves timo the tines Only the suser 


l cell. 


GRTLUSSO Se IUS = 


: 
evectina 


N 


sete 


system. is 
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user can 


use this 


Section ",.2 


¡UA 


p one S 


PA 





A Ll rel 
DURCTiE - " 
* . 
A rr , + LS 4-4 v^ £f ^. ^ : 
ppLie ets” the Elec of tha ele: Tha present time ir 
4- EA Im ` 
ovt cn the ntacke 


Y erran 
CALLI:C CAOT RAG - 


: 
systime 


"Yr np pr 
APGUZLZUETS - 


we 


OUTPUTS - 
Spt2, spt’ — present tire 
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TREUZ hae CRA da Ei E 


ID U2-1 sysunlink 


aia a 
TUECTION 


LOIRE remeves the entry for tho file pointed to 

me from its directory. IZ this entry war the last link to 
he file, the contents of the file are freed an? the file is 
pub d IZ, however, the file was epen in eny procesa, 


the actual “ertruction is Celayed until it is closed, even 
trough the directory entry hes disappeared. 


ET 


du 


Tho error bit (e-bit) is set to incicate that the file Aces 
not exist or that its directory cannot be written. Writs 
alec 


permission is not require? on the file itsalf., It de als 
illegal to unlink e directory (except for the super-user). 


SABDE T CDLOUERNCYE = 
slink; name 


ECU “ENTE 
name = name of directory entry to be removed 


IU TUTO 


Ila 


u.nameo —- points to nemne 
ri = i-num?or associated with name 


pa 
fa sre 
i.nlks - number of links to file gets decromrentec 
u.off - gets moved back 1 directory entry 
imod - gets set by call to setimoc 
if name was last link contents cf file freed and file 
troyed 

$ u w 
entry nene 
ally contains 


m 
E 


Airectory is free (its first word that usu- 
in i-number is zeroed. 


D pr 
3 


^ 
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Wi. Sea ee 


pt 


we m = write e directory entry into the current directory 
in li. 

CALLIXC S2ZCUEMCE - "ou 
jar rC, wdir - in syslink 


fcllows mkdir directly 


uetirbus - s3dress of where name of "irectory is kept 
ii - Contzins tho current directeries i-nunber 


OUTPUTS = 
an entry in the current directory 
usbase = points to u.dirbut 
vecount =- = 10 
ri - contains tho current directory’s i-numbor 
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UNIX IMPLEMENTATION 


ID U3-3 clear 


FUNCTION = „ 
clear zero’s out a block (whose block number is in r1) 


the current device (cdev). “clear” does this in the follow- 


ing manner: 


1) 9 slot’ is eared, which obtains a free I/O buffer (See 


'poke' H.8, page 5) vía 'bufaloc'. 


Bits 9 and 15 of the 1st word of the I/O queue entry are set 


to set up the buffer for writing. 


2) The buffer is zeroed and written out on the current dev- 


ice for the block (indicated by r1) via 'dskwr'. 


CALLING SEQUENCE =- 
jer rO, clear 


ARGUMENTS = 


INPUTS - 
rt - contains block number of block to be zeroed 
Cdev - current device number 
r5 - points to data area of a free I/O buffer 
See inputs for bufaloc, wslot, dskwr 


OUTPUTS - 
a zeroed I/O buffer onto the current device 
r5 = points to last entry in the 1/0 buffer 
r3 - has O in it. It counts from 256-0. It is used as 
& word counter in the block. 
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UNIX IMPLEMENTATION 


ID U3-3 copyz 


FUNCTION = 
clears core from argi to arg2. 


CALLING SEQUENCE = 
jer rO, copyz; argi; arg2 


ARGUMENTS - 
arg! - address of lowest location in core to be cleared. 
arg2 - address of highest location in core to be cleared. 
argi < arg2 


INPUTS - 
rO - return address for the routine calling copyz. It is 
used to access argi, then arg2 and, finally, set to the 
actual return address of the calling routine. 


OUTPUTS - 


rO - points to the next instruction to be executed in the 
calling routine. 
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UNIX IMPLEMENTATION 


ID U3-3 idle 


FUNCTION -. 

idle saves the present processor status word on the stack 
then clears the processor status word. 
clockp ts saved on the stack. It points to one of the clock 
cells in the super block. clockp is then made to point to 
another set of clock cells specified as an argument in its 
call. 
When an interrupt occurs clockp and the processor status 
word are popped off the stack thus being reset to their 
values before the call took place. 


CALLING SEQUENCE - 
jsr rO, idle 


ARGUMENTS - 
s. wait + 2 


INPUTS - 
ps — process status 
clockp =- clock pointer 


OUTPUTS - 


ps - restored to original value 
Clockp restored to original value 
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UNIX IMPLEMENTATION 


ID U3-3 putlu 


FUNCTION = , 

putlu is called with a process number in rí and a pointer 
to the lowest priority Q (rung+4) in r2. A link is created 
from the last process on the queue to the process in r1 by 
putting the process number in ri into the last process's 
link. (The last process's number slot in p.link.) The pro- 
cess number in rf is then put in the last process position 
on the queue. If the last process on the queue was L and 
the process number in ri was n then upon return from putlu 
the following would have occured: 


[ouo sepes runq*4 AGE RS. pelink + L-1 
E. elles Tid denm 
ARGUMENTS - 
INPUTS - 


ri - user process number 
r2 = points to lowest priority queue 


OUTPUTS - 
r3 - process number of last process on the queue upon 
entering putlu 
pelink-1 + (r3) - process number in rt 
r2 - points to lowest priority queue 
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UNIX IMPLE"ZNTATION 


ID U3-2 rswap 


FUNCTION - 


rswap reads a process, whose number te in ri, from disk 
into core. 2 * (the process number) is used as an index 
into p.break and. p.dska. The word count in the p.break 
table is put in the 3rd word of the swp I/O queue entry. 
The disk address in the p.dska table is put in the second 
word. The first word of the swp 1/0 queue entry is set up 
to read. (bit 10 set to a 1) and ppoke is called to read 
the process into core. 


CALLING SEQUENCE - 


jsr rO, rswap 


ARGUMENTS - 


INPUTS - 


ri - contains process number of process to be read in 

pebreak - table containing the negitive of the word count 
for the process 

pedska - table containing the disk address of the process 

u.emt - determines handling of emt's 

usilgins - determines handling of illegal instructions 


OUTPUTS - 


10 = (ilgins) 

30 = (u.emt) 

swp = bit 10 is set to indicate a read (bit 1520 when reading 
is done) 

swp+2 - disk block address 

8Swpt4 = negitive word count 
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UNIX IMPLEMENTATION 


ID U3-1 swap 


FUNCTION = 
swap is the routine that controls the swapping of processes 
in and out of core. It works in the following manner: 


1) The processor priority is set to 6. 


2) The rung table is searched for the highest priority pro- 
cess. If none are found, idle is called to wait for an 
interrupt to put something on the queue. Upon returning 
after an interrupt, the queues are searched again. 


3) The highest priority process number is put in rl. If it 
is the only process on that queue the queue entry is zeroed. 
“If there are more processes on this queue the next one in 
line is put in the queue from p.link (see F, page 9). 


4) The processor priority is set to 0. 


5) If the new process is the same as the process presently 
in core, nothing happens. If it isn't, the process present- 
ly in core is written out onto its corresponding disk block 
and the new process is read in. wewap writes out the old 
process. pswap „reads in,the new one. For more informa- 
tion see WSWAP , rewap , unpack and p17 of Implementa- 
tion Manual. 


6) The new processes stack pointer is restored. The ad- 
dress where this procesg left off before it was swapped out, 
is put in rO. So when rts rO is executed this new process 
will continue where it left off. l 


- ARGUMENTS - 


INPUTS - 
runq table - contains processes to be run. See F, page 9. 
pelink = contains next process in lone to be run. See F, page 9. 
ueuno - process number of process in core. 
s.stack — swap stack used as an internal stack for swapping. 


OUTPUTS - 
present process to its disk block 
new process into core 
u.quant = 30. (Time quantum for a process) 
u.priíi - points to highest priority run Q 
r2 - points to the run queue 
ri - contains new process number 
ps - processor status x O 
rO =- points to place in routine or process that called swap 
all user parameters 
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UNIX IMPLEMENTATION 


ID U3-1  tswap 


FUNCTION -= , " " 
tswap is the time out swap. tswap is called when a user 
times out. The user is put on the low priority queue. This 
is done by making a link from the last user on the low 
priority queue to him via a call to  putlu. Then he is 
swapped out. 


CALLING SEQUENCE - 
jer rO, tswap 


ARGUMENTS - 

INPUTS - 
u.uno - users process number 
runq*4 - lowest priority queue 


OUTPUTS - 
rO - users process number 
r2 =- lowest priority queue address 
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UNIX IMPLEMENTATION 


ID U3-2 unpack 


FUNCTION - 

unpack" unpacks the users stack after swapping and puts the 
stack in íts normal place. Immediately after a process is 
swapped in its stack is next to the program break. "unpack" 
move the stack to the end of core. 

If u.break is less than "core" or greater than ususp nothing 
happens. If u.break is in between these locations, the 
stack is moved from next to u.break to its normal location 
at the end of core. 


CALLING SEQUENCE - 
jer rO, unpack 


ARGUMENTS - 


INPUTS - 
uebreak — users break point (end cf users program) 


OUTPUTS - 
stack gets moved if proper conditions stated above are met. 
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UNIX IMPLEMENTATION 


ID U3-1 wswap 


FUNCTION - , 

wswap writes out the process that is in core onto its 
appropriate disk area. The process stack area is copied 
down to the top of the program area to speed, up I/O. The 
word count is calculated and put in, "swpt4 s The disk ad- 
dress (block number) is put in SWp*2" . sup" is set up to 
write by setting bit 9 and "ppoke" is called to initiate the 
writing. The area from user to the, end of the stack is 
written out. The I/O queue entry "swp is shown below just 
before the process is written out by ppoke. 


de up usb AMD cnp dh SUD UD eo VD C 





tip ub sb OAS UND. UD aD O aa 


When the writing is 








writing from) 


ammo. s CA IND UD ÉD A LE SN quip O 90b oe GO AVID we ee wb ut auf. O ano a A a cob 


bit 9 among others is set | swp done, bit 15 is 
ew eee noe | cleared. 
| disk block address | swp+2 
l neg. word count | swp*4 
constant | user (address to start | swp*6 
|- | 


ARGUMENTS - 


INPUTS - 
u,.break - points to end of program 
u.usp — stack pointer at moment of swap 
core - beginning of process program 
ecore - end of core 
user = start of user parameter area 
u.uno = user process number 
pedska — holds block number of process 


OUTPUTS - 
swp I/O queue (see above) 
p».break = negitive word count of process 
ri - processes disk address 
r2 —- negitive word count 
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UNIX IMPLEMENTATION 


ID U4-1 clock 
FUNCTION = | UE 
i clock handles the interrupt for the 60 cycle clock. It 
incremente the time of day, increments the appropriate time 
category and decrements the users time quantum. It then 
searches through the toutt table and does the following: 


1) If the processor priority is high (>4) and the time in 
the toutt entry; is not zero (Z0), the time in the entry is 
decremented. IË it turns O when decremented it is incre- 
mented so that it will turn O next time when the priority 
might be low (aee 2 below). 


2) If the processor priority is low and (1) the user is not 
timed out or (2) we are presently inside the system and a 
toutt entry gets decremented to 0, the corresponding routine 
in the touts table is called. If the toutt entry was O 
before decrementing nothing happens. If the user is timed 
out and we are outside the system the users rO is restored 
to him and sysrele is called to swap him out and bring in 
another process, 


CALLING SEQUENCE - 
interrupt vector 


ARGUMENTS = 


- INPUTS - É 

lke -- clock status register 

Stinet? = tino of day 

clockp - pointe to one of the clock cells in the super block 
Ueyuest e users Lame quantum 

avillg e eystes flag = 1 is outside syster, O ig inside 
‘tout e table of bytes. Each byte is a tine count 

touts - table ez entry points of subroutiacs 





OUTPUTS = 
Bimet? e ivcraconted 
clockp = incremented 
usquent e decra rented 
tougt œ entcies decrementec 
rö - contains users xO if conditions of (2) above are met 
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UNIX IMPLEMENTATION 


ID U4-3 ppti - paper tape input interrupt routine 


FUNCTION - " : 
ppti does one of following dependent on value of pptiflg 


1. If “pptiflg” indicates file not open (#0), nothing is 
done, 


2. If “pptiflg” indicates file just opened (=2), a check is 
made to determine if the error bit in prs is set. If it is 
pptito is called to place I/O in the toutt entry for ppt 
input. If the error bit is not set, “pptiflg” is changed to 
indicate "normal operation” (set to 4) and “wakeup is 
called to wakeup process identified in wlist for ppt input. 
Also, the character in the prb buffer is placed in clist 1£ 
there is room. If there is no room, the character is lost. 
Finally a check is made to determine if the character count 
in the ppt tnput area of clist has less than 50 characters. 
If it does, the reader enable bit is set. 


3. If "pptiflg" indicates file normal (24) the, procegs in 
the ppt input entry of wlist is woken up (via “wakeup ). A 
check is then made to determine 1f the error bit in pre is 
set. IZ it is, the “pptiflg™ is set equal to 6. If it is 
not the contents of prb are placed in the clist via "pute", 
If clist is full, the character is lost. In addition if the 


character count for ppt input in the clist is less than 50, 
^ the reader enable bit de set. 


4. If "pptifig" indicates the file is not closed (s6), this 
is en ¿ndicaticm that the error bit was set when pptiflg 
equalled four and therefore nothing ta done. 


CALLING SEZZ METE a 
ppti is the paper tape input interrupt routine 


INPUTS = 
pptiflg - flag which indicates function tube performed 
prs = paper tape read etatus bits 
cor? e character count for ppt input in clist 
prb =- input character 


OUTPUTS - 
pptiflg - (see above) 
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UNIX IMPLEMENTATION 


ID U4-4 isintr 


FUNCTION = . ; ; 
isintr checks to see 1f an interrupt or quit from a tty 
belongs to the current user, If so, it won't skip on 
return; if not it will skip. When the interrupt does belong 
the output list in clist is erased via calls to getc. This 
prevents output coming out after the interrupt key is hit. 
Nothing happens except the return is skipped when: 


' Case I 

1) u.tty, the tty buffer pointer = 0 

2) interrupt character in buffer = 0 

3) interrupt char = delete and u.intr = 0 
4) char = fs and u.quit = 0 

5) no tty block is found that matches u.tty 


Case II 
The return is not skipped and the output gets flushed if: 
1) interrupt character = fs u.quit 40 and the tty block in 
control is found E " 
2) interrupt character = delete and u.intr 40 and the tty 
block in control is found. 


CALLING SEQUENCE - 
jsr rO, isintr 


INPUTS - 

l uettyp - pointer to buffer of tty in control of the current process 
ueintr = determines handiing of interrupts if © - nothing havrens 
u.quit =- determines handiing cf foterrupes if CO = nothing havens 
tty+6 - pointer to buffer of first tty block 


OUTPUTS - 
Case I = nothing except return is skipped 
Case IY - processor priority = 5 
gets - erases the output character list 
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UNIX IMPLEMENTATION 


ID U4-4 pptito - paper tape input toute subroutine 


FUNCTION. - l 
If "pptiflg" indicates the file has just been opened (2), 
"pptito t 


te places 10 in the toutt entry for ppt input 


2e checks error bit in prs and sets reader enable bit if 
error bit not set. 


For all other values "pptiflg" pptito does nothing. 


CALLING SEQUENCE - 
jsr rO, pptito 


INPUTS - 
pptiflg - values of this parameter indicates to pptito the 
function it is to perform 
prs ~ status of ppt reader 


OUTPUTS - 


toutt+1 =- contains tic count (= 10) for ppt input 
prs - read enable bit 
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UNIX IMPLEMENTATION 


ID U4-3 ppto - paper tape output interrupt routine 


FUNCTION - 3 
Calls starppt to output next character in clist ppt output. 


CALLING SEQUENCE - 
interrupt routine 


INPUTS - A g 
see inputs for starppt 


OUTPUTS - " = 
see outputs for starppt 
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UNIX IMPLEMENTATION 


ID U4-5 sleep 
FUNCTION - 


Bleep puts the process whose process number is in u.uno on 


the wait list (wlist) and swaps it out of core. 
the following way: 


It works in 


1) A wait channel number is given as an argument to sleep. 


The process number occupying that channel is 


saved on the 


stack. The process number that is getting put to sleep 


(usuno) is put in that wait channel. 


2) A call is made to "isintr to see if that user hag any 
interrupts or quits. If he does a return to him via 
ret" is made. If he doesn't swap is called to swap out the 


process so it can sleep. 


3) A check is made on the new user (the cne who got swapped 


in) to see if he has any interrupts or quits. 


link is created to the old process number that first occu- 
pied the wait channel by a call to "putiu" a normal return 


ís then made, 


CALLING SEQUENCE - 
jsr rO, sleep; arg 


ARGUMENTS - 


P; pen qe am e mm ow Y au S. om um 
ary este chanclas 


INPUTS = 
Uses e process number that gets put to sleep 
Welist = wait whannel liet 
rungti « lewon: priority run Q 


OUTPUTS e 
Bleeping process number cnto wlist 
Blsespisp prore onto disk 
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UNIX IMPLEMENTATION 


ID U4-2 ttyi 


FUNCTION -. | | 
ttyi puts a character from the tty reader buffer in ri 
seta the enable bit of the tty status register, and strips 
the character to 7 bits. Depending on what the character is 
the following things may occur: 


le If the character is a letter (A-Z), It is changed to 
lower case and put on the clist yia putc . It is then put 
on the tty output buffer via startty . If the number of 
Characters on that clist (cc) exceeds 15 a call to wakeup 
is made to clear that list. If less than 15 nothing else 


happens. 


2) If the character is a "Hf" or a "dei". If also, the last 
tty blocks buffer pointer is zero wakeall is called and all 
processes are put on the low priority queue, 


If the last tty blocks buffer pointer to the char ()or del) 
is put in the 7th byte of the buffer and wakeall is called. 


'3) If the char is an "eot" or "ni" 
cc is not clicked and wakeup is called. 


CALLING SEQUENCE - 


ARSOMENTS 
INPUTS = 
tkb = tty reader buffer 
tks = tty reader status register 
CC - number ci cheracters on tne character ligt 


OUTPUTS = 
ri de used to contain the character 
ttyoch = has the character 
see function for other outputs depending on what the character is. 
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UNIX IMPLEMENTATION 


ID U4-3 ttyo 


FUNCTION - 


"ttyo" is the console typewriter output interrupt routine. 
It calls setisp to save registers during the interrupt then 
calls startty to put the character in the tty output buffer 
and then restores the registers and returns from the inter- 
rupt. 


CALLING SEQUENCE - 
interrupt routine called via trap 


ARGUMENTS = 


INPUTS - 
character in ttyoch 


OUTPUTS - 
see startty 
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UNIX IMPLEMENTATION 


ID U4-2 wakeall 


FUNCTION - |. | | 
wakeall" wakes up all the processes on the wait list by 
making consecutive calls to wakeup going through all the 
wait channels. The processes are linked to gether on the 
lowest priority queue (rung+4) used to notify the world when 

a quit or interrupt happens from a typewriter. 


CALLING SEQUENCE - 
jsr rO, wakeall 


ARGUMENTS = 
INPUTS - 


OUTPUTS - 
all sleeping processes are put on the lowest priority queue, 
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UNIX IMPLEMENTATION 


ID U4-5 wakeup 


FUNCTION - 

wakeup is calied with two arguments: argi is one of the. run 
queues and arg2 is a wait channel number. wakeup wakes the 
process sleeping in the specified wait channel by creating a 
link to it from the last user process on the, run ,queue 
specified by  argi. This is done by, a call to putlu. If 
there is no process to wake up, (wait channel contains a 0) 
nothing happens. 


CALLING SEQUENCE - 
jer xO, wakeup; argi; arg2 


ARGUMENTS - 
argi - points to one of the three run queues 
arg2 = is the number of the wait channel of the process to 
be awakened. 


INPUTS - 
wlist = wait channel 
uepri - users process priority 


OUTPUTS - 
if uspri > argi uquant = 0 
wlist (r3) = 0 = entry in wait channel = 0 
r2 — is used to point to ore of the run queues 
r3 = contains the number of the wait channel 
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UNIX IMPLEMENTATION 


ID U4-5 starppt 


FUNCTION = 
"starppt" checks the character count for ppt output in ,the 
 eclist. If it is greater than 10, “gtarppt uses wakeup” to 
wakeup process identified in "wlist” entry for ppt output. 
"sgtarppt then checks the ,ready bit in the punch status 
word. If it is set, "etarppt' uses getc to fetch the next 
character in the clist aná then places it ín prb. 


CALLING SEQUENCE = 
jsr rO, starppt 


INPUTS - 
CC*3 = character count for ppt output in clist 
pps = contains ready bit 


OUTPUTS - 


See outputs for "getc" and “wakeup” 
ppb - ppt output buffer 
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UNIX IMPLEMENTATION 


ID U4-3 retisp 
FUNCTION - . PEE. 
retisp pops the stack and restores the values of rO, ri, 
r2, r3 and clockp to what they were before the interrupt 
occured. retisp then executes an rti and returns. 


CALLING SEQUENCE - 
jmp retisp 


ARGUMENTS — 
INPUTS - 


OUTPUTS =- 
rO, r1, r2, r3, clockp 


CALLED BY ~ 
trapt 


CALLS = 
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UNIX IMPLEMENTATION 


XD U4-1 setisp 

FUNCTION = a , j 
setisp stores rf, r2, r3 aná clockp on the stack. Puts 
6s.rystt2 in clockp and returns vía a jump without popping 
the stack. : 


CALLING SEQUENCE = 
jar rO, setisp 


ARGUMENTS - 
INPUTS - 
OUTPUTS - 


CALLED BY = 
drum 


CALLS 
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UNIX IMPLEMENTATION 


ID U4-4 startty 
FUNCTION - a , 
startty prepares the system to output a character on the 
console tty. It performs the following operations: 
1 = some fooling with wakeup? 


2 = tests console output status register read bit, if bit 
is clear; return. 


3 - if bit is set. check time out byte for console 
(toutt), 1f non zero; return. 


4 = if toutt ie zero, put char to be output in ri. 
5 - load character in console data buffer register. 
6 — if char sz lf, make next char to be output a cr. 
7 ~ 1f char = ht or cr, set time out to 15 clock cycles. 


CALLING SEQUENCE = 
jer rO, startty 


ARGUMENTS - 


INDIFTS > 
ttyoch (character to be output), toutt 


OUTPUTS ~ 
tpb (loads a character in tty output data buffer register), 
ri (character output), toutt, 
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ID U5-3 access 


FUNCTION - " 2 
© reads in section of core beginning at location inode the 
i-node for file with i-number n. Checks whether user is 
owner and whether user can open file for reading or writing 
based on file protection bits in “i.flgs (see Section G). 


CALLING SEQUENCE - 
jsr rO, access; arg. 


ARGUMENTS - 
argO (user, owner flagmask) 


INPUTS - 
ri (i-number of file), u.uid, i.uid 


OUTPUTS - 
inode, r2 (internal) 
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ID U5-2 alloc 


FUNCTION - | 
alloc scans the free storage map of the super block of a 
specified device. When it finds a free block it saves the 
physical block number in 71, it then sets the corresponding 
bit in the free storage map and sets the super block modi- 
fied byte (smod, mmod). : 


CALLING SEQUENCE - 
jsr rO, alloc 


ARGUMENTS = 


INPUTS - 
cdev (current device), r2, r3 


OUTPUTS - 
rt (physical block number of block assigned), smod, mmod, 
systm (drum super block), mount (dismountable super block), 
r2 (internal), r3 (internal). 
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ID U5-2 free 


FUNCTION - 

Given a block number for a block structured I/O device, 
*free” calculates the byte address and bit position of its 
associated bit in the free storege map of the in-core image 
of the superblock for the device (rf fixed head disk or 
mountable device super block). It then declares the speci- 
fied block free by setting this bit. Then a flag is set to 
indicate that: 


1) the super block for the rf-fixed head disk has been 
modified (smod = smod+1). 
or 


2) the super block for a mountable device has been modi- 
fied (mmod = mmod+1). 


CALLING SEQUENCE - 
jer rO, free 


ARGUMENTS - 


INPUTS - 
byte mask table: 








| | 
Mask for bit 1 | 21 4| Mask for bit 
i 5! ac} A A 
i "o Cm uw | 2001 ad 


l- 


ri - block number fcr a block structured device 
cdev = current devices Sedrun, nonzerosmcuncable device 





ae 


OUTPUTS —- 
mount = systm+(r2) word in free storage map portion of the 
in core image of the super biock tor a mountable device. If 


the device is mountabie the appropriate bit is set to free 
the block. If the device is net mountable, the bit remains 
unchanged. 


systm+2+(r2) same as above, but for drum with the super 
bleck for the fixed head disk. 


mnmod - is incremented if the superblock for the mountable 
device was modified. 


smod - is incremented if the superblock for the drum was 
modified. 


r2 = saved on stack and restored on return 
r3 - saved on stack and restored on return 
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ID U5-4 icalc 


FUNCTION - 

icalc calculates the physical block number from the í-number 
of an i-node. It then reads in that block and calculates 
the byte offset in the block for the i-node with the partic- 
ular i-number, then depending on whether the argument in the 
icalc call is a O or a 1 it reads the, inode in the data 
buffer in core starting at location “inode (argument -0). 
Or it will.take the inode information currently stored at 
"rii RAS inode” and write it out on the device (argument = 
1). 


The physical block number and byte offset for an inode is 
calculated as follows: 


let n = i-number, pbn = physical block number, bo = byte 
offset 

then pbn = (n+31)/16 

and bo = 32.* ((n431.) mod 16.) (See Section F for gen- 
eral discussion of inodes.) 


CALLING SEQUENCE = 
jer rO, icalc; arg 


ARGUMENTS = 
ara = ard = N res?! inode 
ary s 1 write inode 
INPUTS w a 


inode - ri (i-number) 


A ens Poy a 
Boe 


wu a ae = 


inode = rf (internal), r5 (internal), r3 (internal) 
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ID U5-4 iget 


FUNCTION -. 

iget gets a new i-node whose i-number is in ri and whose 
device is in cdev. If the new í-number and its device are 
the same as the current i-number and its device (11=i1 and 
cdevzidev) no action is taken. If they do not agree, iget- 
checks to see if the current i-node has been changed (imod 
#1). If it has been changed the current i-node is written 
out to its device. Then if the current device is the drum, 
the new i-node i-number is checked to see if it is the i- 
number of the cross device file, if it is the current device 
becomes the mounted device and the i-number is set to 41. 
(thus the root directory for the mounted deyice ig refer- 
enced). Then the new inode is read into the inode block. 
in core via icale . 


CALLING SEQUENCE = 
jsr r0, iget 


ARGUMENTS = 


INPUTS = 

ii (current i-numbex), rootdir 
cdev (new i-node device 

idev (current i-ncde device) 

Ama (current Genoese modified flag} 
mntí (cross device file i-number) 
ri (i-number of new i-node) 

ata (mountable device nurier} 


OUTPUTS - . 
cdev, idev, imod, ii, ri 
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ID U5-3 imap 


FUNCTION -. 
imap finds the byte in core containing the allocation bit 
for an i-node whose number is in rie This core area is 2 
copy of the super block and happens to be the i-node map. 
The byte address is calculated as follows: 


byte addr = addr of start of map + (í-number-41)/8 
The bit position s (i-number-41) mod 8 


CALLING SEQUENCE - 
jer rO, imap 


ARGUMENTS = 


INPUTS - : 
ri - contains i-number of i-node in question 

OUTPUTS - 
r2 —- has byte address of byte with the allocation bit 
mq —- has a mask to locate the bit position. 


a 1 is in the calculated bit position 
r3 =- used internally 
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ID U5-5 itrunc 


FUNCTION = . 

© “Itrunc truncates a file whose 1-number is given in r1 to 
zero length. itrunc" gets an inode vía iget. It incre- 
ments through the i.dskp (list of contents or indirect 
blocks in the inode) table and frees the blocks specified 
there. If the file is small, the block numbers in the 
i.dskp list are freed. If the file is large, i.dskp con- 
tains pointers to indirect blocks. The block numbers in 
these indirect blocks’ are then freed and the indirect blocks 
are freed. 


CALLING SEQUENCE =~ 
jsr rO, itrune 


ARGUMENTS - 


INPUTS - 
ri - contains i-number for use by "iget" 
i.dskp — pointer to "contents or indirect blocks" in an inode 
i.flgs - contains flag for HEIDE file. See Section F, page 5 
i.size - size or file 


OUTPUTS = 
i.flags - "large file" fiag is cleared 
tsioa 5o cO 0 
i.dekp =- idskp+i6 ~ the entire list is cleared 
setimod = set to indicato i-node has been modified 
ri = contains ¿iexumier on return from thie &ubr, 
r3 — used in subroutine 
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ID 05-1 mget 


FUNCTION —, 
mget" takes the byte number of a byte to be read/written in 
a file and obtains the physical block number of the block in 
which it occurs. The file offset for the byte (i.e. the 
byte number) is passed by passing a pointer to the offset in 
"-efofp. The block number for the byte is returned in rl. 


Along the way several things can happen: 


lo The file is email (less than 8 * 256. words) and the 
byte number extends beyond the current size of the file but 
does not exceed 8 * 512. In this case mget assigns a new 
block from the free area of the file device and updates the 
i-node for the file by adding the physical block number of 
the new block and modifying the free storage map. 


2e The file is small and the byte number exceeds 8 * 512, 
In the case the status of the file changes from small to 
large. mget sets the large file bit in i.flgs of the i- 
node, Next an indirect block is assigned to the file. The 
block pointers in fenode are moved into the new indirect 
block and a pointer to the indirect block is put in the 
inodo. Next a now data Glock is assigned via the iorge file 
handling logia, described below. 


3. The filo is large aná the byte number exceeds the 
currente gige of the file, put Goss rot excead the capacity 
ef the highest indireck block. nget sstigns a new file 
blece and adde a new entry to the indirect: block, 





file de large byte number escuedes the 
seize of the file, and also excevda the limit of the 
; ew rego bisex is sesrigred 

sewo án tns enote o 
a pointer to lit stored 







(Ses File Structure write up in the UNIX Programmers Manu- 


CALLING SEQUENCE = 
jsr rO, mget 


ARGUMENTS ~ 


INPUTS - 
usfofp (file offset pointer), inode, u.off (file offset) 
OUTPUTS = 
yi (pnyvsical block number), r2 (internei), 13 (internal), r5 
(intexns1) 
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ID U5-3 setimod 

FUNCTION - " " 
sets byte at location imod to a 1, thus indicating that 
the í-node has been modified. Also puts the time of modifi- 
cation into the i-node. 


CALLING SEQUENCE - 
jsr rO, setimod 


ARGUMENTS - 


INPUTS - 
Setime, Setime+2 (current time) 


OUTPUTS - 
imod, i.mtim, i.mtim*2 
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ID U6-4 cpass 


FUNCTION = . 
cpass gets the next character from the user into, rte „A 
non-local return takes place (to the caller of "writei") 
when the users count (uscount) becomes Zero. 


CALLING SEQUENCE - 
jsr xO, cpass 


ARGUMENTS = 


INPUTS - 
u.count - users character count 
usbase - points to a users character buffer 


OUTPUTS - 
if u.count 0 
u.count gets decremented 
ri contains the next character 
uenread gets incremented 
uebase — gets incremented to point to next character 
if u.count = 0 
rO ~ return address to program that called "writei" 
ri - i-number of file under consideration 
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ID U6-1 readi 


FUNCTION — 
readi" reads from an i-node whose number is in ri. If the 
file in i-node is special a transfer is made to the ap- 
propriate routine. If not, "dskr is called and the file is 
read into user core, See "dskr for details. 


CALLING SEQUENCE = 
jsr rO, readi 


ARGUMENTS ~ 


INPUTS - 
u.count — byte count user desires 
u.base —- points to user buffer 
u.foft — points to word with current file offset 


OUTPUTS - 


uenread = accumulates total bytes passed back 
see “dskr” 
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ID U6-2 dskr 


FUNCTION -. " E 
dskr gets an inode into core via iget . It then sets 
uscount according to the following rules. If the number of 
bytes left to read in a file is greater than the number of 
bytes he wants to read u.count is unchanged. If the number 
of bytes left to read in the file is less than u.count, 
u.count gets set to that number. ‘ 


If the user offset u.fofp is greater than the file length 
there is nothing left to read so dskr returnse Once u.count 
is established a block address for the file is calculated 
via mget, the file is read into system buffers and the data 
is transferred to user buffers in core. If uscount is not O 
the process is repeated until u.count is 0. Processor 
status is then cleared. 


CALLING SEQUENCE - 


jmp dskr 
ARGUMENTS = 
INPUTS - 


x1 - contains i-number 
i.size - file size in bytes 
u.ccunt — byte count desired 
^"  uefofp — offset in file telling how many bytes have been read 


OUTPUTS - 
data in user huffers in core 
r2 ~ internal register 
pe - 9 


r3 = internal register 
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ID U6-4 dskw 


FUNCTION -. | 
dskw writes user specified data into a file on the drum, 
as follows: 


"dskw' obtains an i-node number from the stack. If the 
i-node currently residing in the i-node area of core has 
been modified, this í-node is written out onto the drum in 
its appropriate position in the i-list. In any event, the 
i-node specified in the stack by the caller is read into the 
i-node area of core. A file is composed of blocks. The 
caller can modify several blocks in several passes thru a 
single call to “dskw’. The number of the block to be modi- 
fied next is calculated by ‘dskw’ from the file offset 
(relative to the start of the file in bytes) specified by 
the caller in (u.fofp). ‘The caller specifies the number of 
bytes to be modified in u.count. If the number of bytes the 
user specifies plus the offset into the file is greater than 
the present size of the file in bytes, i.size, then the size 
of the file is increased to incorporate the data overflow by 
changing the file size field in the i-node for the file 
(which is currently in the i-node area of core). The time 
that this file size change occurs is also inserted into the 
i-node and the i-node modification flag (imcd) is set. 
tasky’? then uses (u.fofp) to calculate an offset (relative 
to the start cf the block) which specifies the 1st location 

- within tha block at which the enllers data is to be writicne 
Note that the offset determines the maximum number of bytes 
of user data that can be written on the file during this 
pass thru ‘dskw’, 5120 "file offset. If the number of data 
bytes the caller specifies is less than a block, the block 
is reid ron drum into 2 system buffer, then the epprepriate 
bytes ¿ze overwritten. if the surnser of data bytes is ¿:88 
than 2 r put exceeds S12.-file of2sect, only 5t2.file 
offset ces are cUerwritten. Succeeding pisnes thru 'áskw' 
are necoadeary £o wykte out the rest of the date. After sach 
pass, the rodidicá file block (in the system buffer) is 
written out on ¿cum When all required blocks nre written, 
Counters and pointers are returned to the caller. 





CALLING SECUENCE = 
Jer rO, dexw 


ARGUMENTS = 
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INPUTS - 
sp —- i-node number 
(u.fofp) - file offset ; 
u.count = number of bytes of data the caller desires to write 
i.size - size (in bytes) of file to be altered (this parameter 

appears in the _i-node whose number is in gb). „ u t 

see inputs for iget , setimod mget , skrå , wslot , sioreg 
rt - pointer to callers data area 
(ri), (r1), 41,..., (r1) + (u.count-1) - the callers data 


OUTPUTS - 

i.size — file size (may have been modified by (dskw) ix m 

gee outputs for iget , setimod , mget dskrd , wslot , sioreg 

ri - points to the location succeeding the last caller data byte 
transferred 

r2 - points to the location (in the system buffer) succeeding the 
last system buffer byte overwritten. 

r3 - 0 

uecount = 0 

modofied drum file 
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ID U6-2 passe 


FUNCTION = . 

passc moves a byte of information specified in the lower 
half of r1 to the byte address specified by (u.base). It 
then increments u.base to point to the next byte address, 
increments  u.nread, the number of bytes passed, and decre- 
ments u.count the number of bytes yet to be moved. If there 
are ho more bytes to be moved, a non-localvreturn to the 
caller of readi (through which control was .eyegntually 
passed to passc) is taken. The current i-number if popped 
off the stack into r1. If there are more bytes to be 
transferred, the processor status is cleared and control is 
returned to the caller. 


CALLING SEQUENCE - 
jer rO, passc 


ARGUMENTS = 


INPUTS - 

rt - contains a data byte in the lower half 

u.base - contains a pointer to the user area of core to which 
the data byte is to be transferred. 

uenread = the number of bytes transferred 

uecount = the number of bytes to bevread 

(sp) = tne non-iocal return address " a 

(sp*2) - the value of r1 prior to calling passe 


OUTPUTS e ; ) 
(u,bese) = O,ece, (u.base)-[u.count-1] contain the transferred 
inZormnation i 
v.shase e points to the last byte transferred 
venread - contaire the nurber of bytes transferred and original 

value of unread 
u.count = contains the muse of bytes that still mast be read 
(sp) - if non-local return popped twice 
ps = cleared 
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ID U6-2 rerd 


FUNCTION = See “error” routine 


CALLING SEQUENCE - 


ARGUMENTS - 


INPUTS -. 


OUTPUTS - 
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ID U6-2 ret 


FUNCTION = 
ret is a special subroutinevreturn, used by the following 
subroutines: 
to reti 
2« rppt 
3. daskr 
4. passe 
5, dskw 
6. bread 
Te bwrite 
Be revt 


in place of the standard return. In addition to performing : 
standard return functions, "ret" pops the stack and puts its 
vblue in rt. It also clears the program status word. "ret" 

can be used simply to clear the program status word by 
entering vía its 2nd entry point. 


CALLING SEQUENCE - 
control should be passed to this routíne by either a condi- 
tional or non conditional transfer to ret (the ist entry 


oat 


point), or to 'i', the secondary entry point. 
ARGUMENTS » 
INPUTS - | 
A. for primary entry : (sp) 
B, for secondary entry ? em 
GUTI "UTS => 


nh, for primary entry : ri,ps 
Be fer secondary entry i: 
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ID U6-2 rppt - read paper tape | 


FUNCTION -. 

rppt" uses "pptic" to get a character in ppt input section 
of clist and to set reader enable bit in prs. If the ppt 
input section is empty and pptiflg = 6 (indication that the 
error bit was set during “normal operation" ) return is made 
to “ppt” to instruction “br get” which eventually causes a 
return to the caller of "readi'. „If a character is avail- 
able in clist, return is made to "rppt" at "jsr ro, passc e 


‘Upon return from “optic” $ "rppt" uses "passc" to place the 
Character fetched by pptíc into the users buffer area. If 
the number of characters that were specified by the user to 
be read in has been read in, return from passc is made to 
. the caller of readi. 


It 1s appropriate at this point to describe how all the ppt 
input routines and subroutines are tied together to - read 
ppt. First of all the ppt file must be'open,., To do this a 

sysopen” for reading which sets the "pptiflg indicating- 
file open. It also sets the reader interrupt enable bit in 
the prs and empties the ppt input portion of clist. 


Once the file is open, a "sysread" of the ppt file is made. 
A pointer to the location where the characters are to be 


> e en «A 
placed along with thg nucker cf ginractocgs to bevreag arg 


passed ag arguments | to sysread e sysresd then uses rw! 


to get" ". "u.coont" equal ES the mimber of characters to be 
read and usbase. to the location where the characters are 
to be placed. readi is then called which jumps to rppt 
which is Gescrlbed above, It should be noto, that, when 
"Betic a& o Caáilloi to obtain a caarecner from clist, the 





process will be put to glecp if no chnracters ara in cltet 
swith natos £3) ang all characters to Le sead in have not 
been Peas hino She reader enable bit is se sa comple 
tion i "the input of the next character (sence bit set) the 
ppt iucct interrupt routine (ppti) is started which uses 
wakeup to wake up the process previously pac to sleep. 











CALLING SEQUENCE = 
jep rept 


INPUTS - 2 
see inputs for. "pptic" " "passc 


OUTPUTS - 
gee outputs "pptic" and "passc" 
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ID U6-1 rtty 
FUNCTION = S x 
essentially, rtty transfers characters from. the console 
tty buffer into a user area of core, starting at byte ad- 
dress (u.base), If there are,no characters in the console 
tty buffer,  rtty calls ‘canon’, which gets a line (120 
characters) from the console tty clist and puts it in the 
console tty buffer. The Caller specifies the number of 
characters to be transferred in  u.count. If the number 
specified is greater than the number actually in the console 
tty buffer, a synthetic return is taken to the caller after 
the characters in the buffer have been transferred. If the 
number specified is less than or equal to the number actuai- 
ly in the,console tty buffer, a non-localized return to the 
caller of "readi (which is the routine via which control 
was actually transferred to  rtty ) is made when all the 
cut have been transferred to the users core area ívia 
passc ). 


CALLING SEQUENCE - 
[conditional or unconditional branch, or jmp] rtty 


ARGUMENTS — 


INPUTS = 
Liy + 70e = Contains pointer to the header of tne console 
tty buffer. 
2(tty+70.) = 2nd word of console tty buffer headers; contains 
a couot of characters in the Puser e 
4(tty470.) = contains a pointer to the next character in the 
puffer. Pointer values can incluta (tty470.) + 
Y ue 








V- D. i 9 T Et T Lo. > 
. x E -7 phei ipte ¿“Ec ¿Des ‘ 
see lonuüts for Caron y base y reti 


OUTPUTS = z > 
rt, r5 used internally by rtty y original values destroyed 
r5 = points to header of console thy buffer 
see outputs for cañon y passe y Yet! 
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ID U6-3 wppt = write paper tape 


FUNCTION ~ 
wppt uses, "cpasg" to get a character from the users buffer 
&rea and "pptoc" to output the character on the punch. 


It is appropriate at this point to describe how all the ppt 
output routines and subroutines are tied together to output 
data on the ppt punch, First the ppt file must be open. 
This is done viaa sysopen" for writing. This places en- 
tries in the fsp table and the user's fp area. 


Once the file is open a "eyswrite" of the ppt file is made. 
A pointer to the location where the characters are stored 
along with the number of characters to be,punched are passed 
as arguments to syswrite. Then uses rw to set uecount 

equal to the number of characters to be punched and  u.base 

equal to the location of the characters. “writei is then 
called which jumps to "eppt . 


"wppt" as mentioned above uses "cpass" to get a character 

from the user's buffer area. If the number of characters ag 

specified in ‘syswrite . If not “pptoc” is called. “pptoc” 

first checks to see 1f character count for ppt output in the 
"elíst" is 250. If it is the process is put to Q.8ieeD. If 

it isn’ t the character is placed $n the elist and 
“starppt” is called. 


"starpnt" uses “gero” to get a character from clist and 
inserts it gate the ppb if the ready bit is set. ii it 
isn’ t, control is passed back to pptoc e 


Upon corpletion of output of the character in pob (ready bit 
get? TED Serer tape utput interrupt vroutine ler sto) ig 
startet vias er interrupt. This rowktme cells storpot" 
which perform the following function on an interrupt in 
addition to those described in the previous paragraphe Iit 
checks to sec 11 the character count for ppt output is less 
than 10. I£ it is it will wake up the process in tne wlist 
entry fcr ppt output, l 


As seen from above a process puts itself to sleep when it 
has 250. characters in clist and is ‘awakened’ by the paper 
tape output interrupt routine (ppto) when the count becomes 
less than 10. 


CALLING SEQUENCE - 
jmp ppt 


(see inputs for cpass and pptoc } 


OUTPUTS -~ : " ` » 
(see outputs for cpass and pptoc ) 
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ID U6-5 sioreg 


FUNCTION - 
1. calculates the first byte location (in the I/O buffer 
assigned to the septenis into which the callers data is to be 


written. 


2, | Calculates the number of user data bytes to be 
transferred into this I/O buffer. 


36 performs bookkeeping functions, supplying the caller 
with information pertinant to the data transfer. 


CALLING SEQUENCE = 
jer rO, sioreg 


ARGUMENTS - 


INPUTS - 
(u.fofp) - specifios the byte in a file i esevivs to the start 
of the file) at which the user wants to start writing 
data. 
r5 ~ address of data area of I/O buffer assigned to the user. 
usbase =- address of 1st byte of user data. 
uscount - number of bytes of data to be transferred from user 
l data area to I/O buffer. 
- Unread — number of bytes of data written out on the file for 
this user previously. 
OUTPUTS — l à 
(u.fofpi - speciries the byte immediately following the last byte 
C2 the file area in which the ueceount: bytes ol user 
éuta is to be written. 
s oof fen pete oS ur 
cities che byte ir 
CZ user Cuts to be trantferred to the 
u.count «s DNE UE tne nunber of bytes of uu 
3 Do c after the precesding not 





r datae 
AOXimnteiL:s following uhe : 





yí e addres 
Ueba ge «e f 


ue 







cr deta left to be 
is tranczoerred, 


venread = wointer to inciuóe the couat of to be transferred bytes. 
r2 = speciólos tnc ae in the 1/0. Ano asoldoned to tne caller 
at which the transfer of user's data is to start. 


uour OT bytes of user data És ba transferred to users 1/0 
bulfere 
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ID U6-2 writed 


FUNCTION - 

writei" checks to see if there is any data to be written 
(on any device). If not, it does nothing more than: return 
to the routine which called it. If there is data to fbe 
written, "wrítei" saves the i-node number of the file to be 
written on the stack, so it can be used by the appropriate 
output routine. Then "writei" checks to see if the^ output 
is to a special file (those files associated with  i-nodes 
1,00e40., or toa non-special file. Writes for nonespecial 
files are routed to the dskw routine. Writes for special 
jfiles are. routed to appropriate routines, as follows: 


Special File l Write Routine 
ASR-33 ¢ console tty wtty 
PC11 + paper tape punch wppt 
core wmem 
RF11/RS11 : fixed head disk (drum) wrf0 
RKO3/RK11 : movable head disk wrkO 
TC11/TU56 : dectape unit 1 wtap 
e 2 Lad 
- e 3 - 
; w . 4 Ld 
P ee E 
7 
(any std. tty) : tty unit 1 xmtt 
s A 2 e. 
Lad vt 4 % 
e se 5 - 
e w 6 sw 
7 


CALLING SEQUENCE - 
n srvrO, writoi 


INPUTS - 
uscount - contains a count of the number of bytes tofbe written 
vrí — contains the number of the i-node for the output file 


OUTPUTS - " 2 

Az to the calling routine if return is made to itfby writet 
unread - is cleared 

B: to the write.routine for non-special files 
uenread —- is cleared 
(sp) - contains the i=node number 

Cs to the write routine for special files 
unread -~ cleared 
(sp) - contains the tosir number 
r1 = contains the index into the special filevroutine: jump table 
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ID U6-3 wtty 


FUNCTION -a 

“witty uses "cpass" to obtain the next character in the user 
buffer area. If the character count for console tty is 
greater than 'or equal to 20, the process is put to sleep. 
If not, it then_uses putc to determine if there is an entry 
available in "freelist" portion of "clist" » If there is 

"putc" places the character there and assigns the location 
to the console tty portion of "clist'. If there is no place 
available in the .freelist" portion of clist'", the process 
is, put to "sleep" + If there was a vacant location, starte 
ty" is used to attempt to cutput the character on the tty. 
Upon return from "startty » the next character is obtained 
from the user buffer. If the buffer js empty, control is 
passed vía .Cpass". back to syswrite . When the process is 
awakened by gakeup" » it again tries to find a location 
available in 'freelist and the character count for the con- 
sole tty less than 20 so it can output the character. 


CALLING SEQUENCE - 
jmp wtty 


ARGUMENTS = 


INPUTS - 
^(^ eg4t — contains character count for esnsolo tty cufput. 


(see inputs for cpass , putc , startty , pues 


OUTPUTS - 
r1 = (character from user buffer) 
ps = processor priority set to $ 
) E t E + + Te w " 
(ER Oltputs for cpass y puto y startty , sleep. 
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ID U7-1 canon 


FUNCTION - 

canon handles the erase kill processing on the teletypewrit- 
ers. (console tty). r5 points to the start of the tty 
buffer. The argument following the call is where the char- 
acters are obtained. canon returns only when, (1) a full 
line has been gathered, (2) a new line has been received, 
(3) an eot (004) has been received, or (4) 120 characters 
(the length of the buffer) have been received. 


canon works in the following way: 


1) The address of the start of the characters is put in 
buffer + 4 (4(r5)). 


2) buffer + 2 (2(r5)) is cleared. This is the character 
count, 


3) a character is gotten off the queue. If it is a kill 
character “8” a return to the beginning is made. Actually 
one starts over, 


4) If the character is an erase '£', the next character 
will overwrite the previous one and thereby erase it. 


- 8) If the character is an eot (004) the byte pointer ia 
reset to the first character and a return ig mado. 


6) If char ás none of the above, it ds put in tne buffer 
when tho character pointer tells it to go talrsl, 


-5* EA e ae ey mta mS un ca cmo eat de ^f em PETI M wa ck RE GO ES pd epo 
T3 |» chrfruocte: estat Eure CADO Une cae oe ar pole: 


Mw E 


4(15) are than inezeronted, 


E) Tf the char ds a new line (Nn) the char pointer is rerel 
ang a return L6 mec. 


9) I2 the buffer is full (byte count > 125) the char 
pointer is reset aná a return is made. 


10) If the tuffor 1sa't full, the next character off the 
queue in put througn tbe above tests. 


Note: canon should only be called when the number of al- 
ready treated characters is zero, i.e., when the char count 
= 03 2 (x5) = 0. If the char count is £ O the character 
pointer, 4 (r5) points to the first character not yet picked 
up. 


CALLING SEQUENCE - 
jer rO, canon, ara 


ARGUMENTS - 
arg ~ where characters are to pe obtained from 
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INPUTS - 
r5 - points to tty buffer address 
10(r5) - start of character buffer 
2(r5) - character count 
4(r5) - points to next character position ín data area 


OUTPUTS ~ 
a full buffer, or a full line 
rt pointers to buffer + 10 l 
4(r5) - character pointer reset to start of data area buffer + 10 





| | tty buffer 

| at of char in buffer +2 

hae pointer (buffer +10 tol +4 
start) | 

AA M ——— M M — Ó— | +6 
| | 

|l---———--—--——-—-—-————--—————------| *8 
t [| 
$ 1 

| ms | moreno eon | +10 
| l | 
[il 
character | | 
storage { { 
area | | 
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ID U7-1 cesc 


FUNCTION -. 
"Cesc is called by canon to check for an erase 4" or kill 
“e” character. ri contains the character being tested. If 
the character is not an erase or kill the return is skipped. 
If the char is an erase or kill the character count and 
character pointer are decremented. If the previous charac- 
ter was a NX the # or 6 are taken literally and the return 
is not skipped. 


CALLING SEQUENCE - 
jsr rO, Cesc; arg 


ARGUMENTS - 
arg 100 - € means kill the line 
43 —- # means erase last character 


INPUTS - 
ri - character to be tested 
2(r5) - character count 
*4 (r5) - previous character 


OUTPUTS - 
skip return if test char is not erase or kill 
if character was erase or kili 
2(r5) — character count gets decremented 
4(r5) - character pointer gets decremented 
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ID U7-7 cppt - close paper tape file. 


FUNCTION -, 
cppt agsigns all ppt input locations in clist to freelist 


and sets “ppt, flg to indicate file closed (=0). 


CALLING SEQUENCE - 
jmp cppt 


INPUTS - 
OUTPUTS - - E 
See outputs for getc . 


ps - processor priority set to 5 
pptiflg ~ set to 0 to indicate file closed 
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ID U7-6 ctty 


FUNCTION -. | 
ctty closes the console tty. All it does is decrement the 


number of processes that have opened the console tty file. 
The first byte of the console tty buffer is the number of 
processes that have opened this tty byte. See F, page 11. 


A return is made via sret . 


CALLING SEQUENCE - 
jmp table in i-close 


ARGUMENTS - 
INPUTS - 


OUTPUTS - 
r5 - points to console tty's buffer 


(r5) - first byte of buffer gets decremented. 
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ID U7-8 error a 

FUNCTION — See “error” routine 
CALLING SEQUENCE - ^ 
ARGUMENTS - 
INPUTS - 


OUTPUTS - 
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' ID U7-3 get 


FUNCTION - i 
Removes the first clist entry from the list identified by 
ri, makes the second entry the first. Puts the clist offset 
of entry removed from list in r2 return to normal. 


If the list identified by ri is empty, r2 is returned equal 
to zero, and return made to empty +. 


If the list has just one entry, the entry is removed and the 
first and last character pointers for the list are zeroed. 


CALLING SEQUENCE - 
jsr rO, get; empty: ; normal: 
ARGUMENTS = 


INPUTS - 


rt (list identifier), cf+1(ri), cf+1(r1) (see Section G for 
_ general description of tty I/O handling) 


OUTPUTS - 


r2 (offset into clist of entry just: removed from list r1), 
cfti(ri), cl¢i(ri), clist (123 
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ID U7-2 gete 


FUNCTION -. 
getc removes the first clist entry from a list identified 
by arg, via call to get; decrements character count for 
list; puts the clist entry removed onto the free list; „puts 
the character in the entry into ri and takes “normal” re- 
turn. If list is empty take “empty” return. 


CALLING SEQUENCE - 
jsr rO, getc; arg; empty: ; normal: 


ARGUMENTS - 
arg - list identifier 


INPUTS - 
r2 (clist offset from put) 


OUTPUTS - 
r1 (character on top of list), iens clist (r2) 
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ID U7-8 getspl 
FUNCTION - 


“getsp1”, gets a device number from a special file name. 

usnamep poínts to the name. namei is called to get the 
i-number. ¿-number -4 is the device number. If it is less 
than or equal to zero or it is greater than 9 an error oc- 
curs. If not the device number is returned in ri. 


-CALLING SEQUENCE - 
jsr rO, getspl 


ARGUMENTS - 


INPUTS - 

u.namep - points to the name of the special file 
OUTPUTS - 

ri - device number of the special file 
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ID U7-5 iclose 


FUNCTION = , 

iclose checks to see if the file, whose i-number is in rf, 
is special. If it is, a transfer is made to the appropriate 
routine. If it isn't a return is made. 


CALLING SEQUENCE - 
jsr rO, iclose 


ARGUMENTS = 


INPUTS - 
ri - contains i-number of file being closed 


OUTPUTS - 


If special file, ri is put on the stack, i.e., the i-number 
is put on the stack. 
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ID U7-4 iopen 


FUNCTION = | ' 

iopen opens the file whose i-number is in rt. If the file 
is to be opened for reading access is called and the i- 
number is checked to see if the file is special. If it is 
special, a jump table of transfer addresses takes care of 
transferring control to the correct special file routine. 
If non-special file a return is made. If the file is to be 
opened for writing, access is called and a check is made 
to see if the file is a directory. If it is, an error oc- 
curs, because users cannot write into directories. Special 
files are handled in the same manner as above. 


CALLING SEQUENCE - 
jsr rO, ¿open 


ARGUMENTS - 


INPUTS - 
ri - contains i-number of the file to be opened 


OUTPUTS - 
files i-node ise in core 
ri - if i-number was negitive upon entry it is positive on 
exit 
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ID U7-5 oppt - open paper tape file for read or write 


FUNCTION = 
oppt performs the following functions: 


1, Sets the reader enable bit in prs. 
2. Assigns all ppt input locations in "clist" to freelist. 


3. Sets "pptiflg" to indicate file just open (=2) and 
places 10 in toutt entry for ppt input. : 


CALLING SEQUENCE - 
jmp oppt 


INPUTS - 
pptiflg - used to determine if file already open 


OUTPUTS - 
pptiflg - set by oppt to indicate file just open 
ps - processor priority set to 5 
pre - contains reader enable bit 
toutt ti - contains count for ppt input 
See outputs for getc e 
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ID U7-5 otty 


FUNCTION -. 
otty opens the console tty for reading or writing. The 
interrupt enable bits are set in the tks and the tps. If 
the console is the first tty opened in this _process assign 
its buffer address to u.ttyp return through sret . 


CALLING SEQUENCE = 
{conditional or unconditional branch, or jmp] otty 


ARGUMENTS ~ 


INPUTS - , " 
see inputs for sret 
u.ttyp ~ points to the buffer header for the process control 
typewriter 
(tty+70.) = lower byte of 1st word of header contains the number 
of processes that opened the buffer 
tty+70. =- contains pointer to the header of the console tty buffer 


OUTPUTS - 

u.ttyp - points to the console tty buffer header if it was the 
fst tty opened by the process. therwise points to ? 

r5 - points to header of console tty buffer 

(r5) - lower byte (numser of processes that opened the buffer) 

incremented by one. 
txs = reader statue register interrupt enable bit set, rest of 
bits zeroed. 
tps = punch status register 
See outputs for sret 
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ID U7-2 pptic - paper sape input control 


FUNCTION —- | 
"pptic — the following functions for ppt input: 


1e If the error, busy and done bits are not set in the prs 
and the character count for ppt input in the clist is less 
than 30, pptic sets the reader enable. bite 


2. Uses "getc" to get character from paper tape input area 
of clist. „If this area of "clist" is empty, a check is made 
to see if "pptiflg” is set equal to six (indication that 
error flag in prs is set during normal operation). If it 
is, return is made to the calling routine "Which in turn 
vreturns to its calling routine. If “pptiflg does not equal 
six, the process is put to sleep. 


CALLING SEQUENCE - 
jer rO, pptic 


INPUTS - 


cc*2 - contains clist character count for ppt input 
prs = contains status bits for pot reader 
pptiflg - indicates conditicn of ppt file 


OUTPUTS = 


. prs - contains reader enable bit 
see outputs for gete” 


ps = processor priority set to 5 and then to o. 
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ID U7-2 pptoc - paper tape output control 


FUNCTION - 


pptoc” first checks to see if the character count for ppt 
output in the clist is greater than 50. If it is, the pro- 
cess is put to sleep. If it isn’t “pute” is used to place 
the character which is in rf, in the clist. If the clist is 
full, the process is put to sleep. If the character is 
placed in clist, starppt is called to output the next 


entry in the ppt alada section of clist. 


CALLING SEQUENCE - 
jsr rO, pptoc 


INPUTS - 
cc*3 = character count for ppt input in clist 


OUTPUTS - 
ps - processor priority get equal to,fluf , 
see outputs for "starppt" and “sleep” and pute” 
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ID U7-3 put 

FUNCTION ~- 
Takes a clist entry pointed to by r2, and makes it the last 
entry in the list identified by ri. 


If this is the first entry in a currently empty list then 
the first char pointer in cf is also updated. 


CALLING SEQUENCE - 
jsr rO, put 


ARGUMENTS ~ 

INPUTS — 
rt (list identifier) 
r2 (clist offset) 


OUTPUTS - 
c1+1(r14), clist-1(r2), of+1(r1) 
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ID U7-3 pute 


FUNCTION - i l 
© Puts a character at the end of a list identified by the 
argument in the putc call. 1 


In detail it takes a clist entry from the free list via call 
to get . Appends the entry to the list identified by arg 
vía call to put . Then fills in the new entry with a char- 
acter passed in ri. 


CALLING SEQUENCE - 
jsr rO, putc; arg 


ARGUMENTS - ; 
y list identifier (see discussion in G on tty device 
I/O 


INPUTS =- 
rf - character from device buffer. 


OUTPUTS - 


r2 ~ clíst offset where character stored, cc(arg), 
clist-1(r2) | 
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ID U7-7 sysmount 


FUNCTION - - 

sysmount announces to the system that a removable file 
system has been mounted on a special file. The device 
number Of the special file is obtained via a call to 
getsp1". It is put in the I/O queue entry for the 
dismountable file system (sbt) and: the I/O queue entry is 
set up to read. (bit 10 is set). "“ppoke is then called to 
read the file system into core, i.e. the first block on the 
mountable file system is read in. This block is the super 
block for the file system. This call is super user res- 
tri ected. i 


CALLING SEQUENCE - 
sysmount; special; nami 


ARGUMENTS - 
special —- pointer to name of special file (device) 
name - pointer to the name of the toot directory of the 
newly mounted file system. "name" should alwasy be 
a directory. 


INPUTS - 
mti - records i-number of unique cross file device 
SD ~ Contains the name of the file 
sbi = I/O queue entry for the dismountahla file eyetem 


OUTPUTS - 
mnti - jenumber of special file 
mtd =- device number BE special fiie 


sbi - ^is Gevice number in lower byte 
m R x t 2 : oe a ee uw rar 
file Ey ace ia read into core via ppoke 
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ID U7-8 sysumount 


FUNCTION - 
sysumount" announces to this system that the special file, 
indicated as an argument, is no longer to contain a remov- 
able file system. getspl gets the device number of the 
special file. If no file system was mounted on that device 
an error occurs. mntd and mnti are cleared and control is 
passed to sysret. 


CALLING SEQUENCE - 
sysumount; special 


ARGUMENTS - 
special — special file to dismount (device) 


INPUTS - 
mntd - device number of mounted device 
sb1 - I/O queue entry for the dismountable file system 


OUTPUTS - 
mntd - zeroed 
mnti - zeroed 
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ID U7-8 sysreta 
FUNCTION - See "sysret" routine 


CALLING SEQUENCE - 


ARGUMENTS — 


INPUTS - 


OUTPUTS - 
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ID U7-1 ttych 


FUNCTION - , 
ttych gets characters from the queue of characters input- 
ted to the console tty. If there are none, sleep is called. 
ttych works in the following manner: 


4. the processor priority is set to 5 


2. a character is gotten off the queue via “gete” if the 
list is empty, sleep is called. f 


3. if not the process status is cleared and a return is 
made. 


CALLING SEQUENCE — 
jsr r0, *(ro) ttych was an argument in the call to 
canon , à 


ARGUMENTS - 

INPUTS - 

OUTPUTS - 
ps = 0 


ri - character on top of list 
See getc number 7, page 2 for others. 
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ID U8-1 bread 


FUNCTION - | 
bread reads a block from a block structured device (rk, 
rf, tape). It operates in the following way: 


1. If "cold" =1 (cold boot) the block specified in ri, is 
read into an I/O buffer via preread . If its a warm boot 
(cold=0) the block in r1 and the next consecutive block are 
read into I/O buffers via preread . The reason two blocks 
are read in is to speed up the overall reading process. On 
a cold boot, however, only two I/O buffers are available, so 
only one buffer us used. 


2. The block number is always checked to see if the maximum 
block number allowed on the device has been exceeded, (see 
argument) If the block number does exceed the maximum, an 
error occurs. 


3, "preread" is called again on the first block. Since the 
first block is already in an I/O buffer, all preread will do 
is reverse the priority (see bufaloc H.8, page 9) so that 
the first block is of higher priority than the second. 


4. Bit 14 of the first block's I/O buffer is set. 


5. Bits 10 and 13 (the read bits) of this I/O buffer are 

now checked. If they are set (reading is still in progress) 
and the.device ig disk or drum, or the device is tape and 
uquant  £ „0 idle is called. If the device is tape and 
uquant = 0, sleep is called. If bits 10 and 13 are O 
(read done), bit 14 of the I/O buffer is cleared and the 
data is moved from the I/O buffer to the users area. 
dioreg does the bookkeeping on the transfer. 


6. If u.count «0 the reading is finished. If not.a branch 
back to the start is taken and the above steps are repeated. 


7. A return is taken to the routine that called "readi". 


CALLING SEQUENCE - 
jsr rO, bread; arg 


ARGUMENTS = 
arg — maximum block number allowed on device 


INPUTS - 
r2 - points to the users data area; r3 has the byte count 
(u.fofp) - is the block number 
cdev —- is the device 
u.base - base of users data area 
u.count - number of bytes to read in 
ri =- is used internally as the block number 
cold -~ O warm boot or 1 cold boot l 
r5 - points to the beginning of the I/O buffer or the data area 
usquant — time quantum allowed for each process 
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OUTPUTS - 
block or blocks of data into the users area starting at u.base 
(u.fofp) - points to next consecutive block to be read 
r3=0 - (used internally) 
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ID U8-3 dforeg 


FUNCTION = . | 
dioreg does the bookkeeping on block transfers of data. 
It first checks to see if there are more than 512 bytes to 
transfer. If so, it just takes 512. If not, it takes 
uecount. 


ARGUMENTS — 


INPUTS - 
u.count - number of bytes user wants transferred 
u.base — start of users data area 


OUTPUTS - 
r3 - used internally to hold the count 
u.nread — updated by adding r3 
uebase — updated by adding r3 
uecount - updated by subtracting r3 
r2 - has value of u.base before it gets updated 


Issue D Date 3/17/72 ID IMO, 1-1 Section H.8 Page 3 


UNIX IMPLEMENTATION 


ID U8-2 bwrite 


FUNCTION - 
"bwrite" writes on a block structured device (rf, rk, tape). 
It operates in the following way: 


1) The block number is placed in rl. 


2) If the block number exceeds the maximum allowable block 
number of the device an error occurs. 


3) (u.fofp) is incremented to point. to the next block ‘in 
sequence. 


4) "wslot" is called to get an I/O buffer to write into. 


5) “@ioreg” is called to set up the bookkeeping for the 
transfer. 


6) The data is then transferred from the users area to ene 
I/O buffer. 


7) "dskwr" is called to write it onto the device. 


8) If u.count €Ó, the procedure is repeated. If it is, a 
return to the routine that called writei is made. 


CALLING SEQUENCE - 
jsr rO, bwrite; arg 


ARGUMENTS - 
arg — is the maximum allowable block number for the device. 


INPUTS - 
(u.fofp) is the block number 
Ccdev - is the device 
r4 - is used internally to hold the block number 
r5 - points to the I/O data buffer 
r2 - points to the users data area; initially its u.base | 
usCount —- number of bytes user desires to write 
r3 - has the byte count 


OUTPUTS - 


(u.fofp) is the next block to be written into 
r3=0 (used internally) 
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ID U8-7 drum 


FUNCTION -, | 

drum is the interrupt handling routine for the drum. drum 

is called after the transfer of data to or from the drum is 

complete i.e., when the ready bit in the dcs (drum control 

register) is set. (see interface manual, page 73-74.) rt, 

t2, r3 and clockp are saved on the stack (see setisp) calls 

trapt to check for stray interrupt or error. If neither, 

it clears bits 12 and 13 in ist word of transaction buffer, 

checks for more disk buffers to read into or write; then 
returns from interrupt by calling retisp. 


CALLING SEQUENCE - 


called by interrupt vector at location 204 after data 
transmission has taken place, i.e., ready bit of dcs set. 


INPUTS ~ 
same as setisp, trapt and retisp 


OUTPUTS - 
same as setisp, trapt and retisp 


CALLED BY - 
interrupt vector 


CALLS - 
setisp, trapt 
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UNIX IMPLEMENTATION 


poke” performs the basic I/O functions for all block struc- 

tured devices. In order to understand the functioning of 
poke, the general handling of block structured I/O must be 
described. 


I/O on block structured devices is handled via a collection 
of data buffers beginning at location buffer each buffer 


consists 


of a four word I/O queue entry followed by a 256 


word data buffer. 


An I/O queue entry has the following form: 


write 


bi t ND A QUE AND GN QU PEE RET: "UD A UND CD UD. er a 





waiting to write bit 


waiting to 


inhibit bit 


byte O - 


byte 1 - 





bit 


| 
| 
| 
| 
-1 4 I d i 
| 
| 
9 








Ear he 


15 13 12 10 


—Ó 


7 











0 
=m | 
device id | 











anpenn ag 


physical block number 








word count (-256) 








PS AGE DET GEI REED CEP ND qi Oe 


bus address 


———— IQ — AAA A TD SSL SY SP ONT) TO GEO AUI ACD afl 





device id codes are 
O = drum 
1 = disk 

other = dec tape 


write bit - when set indicates write the data in 
the buffer out onto the device identified in byte 
O. 


read bit - when set indicates read data off of the 
indicated device into the data buffer. 


waiting to write bit - if set indicates that a 
write operation has been requested but not yet cdom- 
pleted. 


waiting to read bit - if set indicates that a read 
operation has been requested but not yet completed. 


inhibit bit - when set will delay request for 
operation indicated by write bit or read bit until 
cleared. 
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byte 2.3 - physical block number (see Section F, discussion 
of file system) 


byte 4-5 - word count - number of words in buffer; loaded 
into word count register for device, 


byte 6-7 - bus address —- address of first word of data 
buffer. ; 


In addition to the general I/O queue entries there are three 
special entries at locations sbO, sbi, and swp. These are 
the I/O queue entries for the super block for drum (sbO), 
the super block for the mounted device (sb1), and the core 
image being swapped in or out (swp) - these entries are ini- 
tialized in the allocate dísk buffers segment of code in 
ud. 


An area in core starting at location "bufp” and extending 
nbuf + 3 words, contains pointers to the I/O queue entries. 
This table of pointers represents the priority of I/O re- 
quests, since poke scans these pointers starting at the 
highest address in bufp , examining the control bits in 
byte 1 of each I/O queue entry. pointed to by the bufp 
pointers. If either bit 9 or 10 is set and neither of bits 
15, 13, or 12 is set then poke will attempt to honor the I/O 
request. 


To honor an I/O request, poke checks "active" to see if the 
bit. associated with the device is clear. If it is clear 
poke initiates the I/O operations by loading the appropriate 
device registers. In all I/O operations the interrupt is 
enabled and thus when completed an appropriate routine is 
called via the interrupt. When poke initiates a 1/0 opera- 
tion it clears bit 9 or 10 and sets bit ‘41/2 or 42.5 The 
routine called upon completion of the 1/0 operation will 
clear bit an or 42 thus freeing that I/O queue entry. 


"poke" calculates a physical disk address (which is loaded 
into register rkda) from the physical block number in the 
following way: 
let N = physical block number 
then 
sector number = remainder N 


12. 
surface = 0; quotient N even 


12. 
3 quotient N odd 


12. 
cylinder = quotient quotient N /2 
12. 
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"poke" calculates a physical disk address for the drum from 
the physical block number in the following way: 


The drum address is given in the dae and dar registers. 


1 O0 15 11 10 0 


dae po || | 


dar 


track word 


The physical block number is essentially multiplied by 256 
(by shifting the low order byte into the high order byte of 
the dar, and shifting the high order byte into the low order 
byte of the dae. 


CALLING SEQUENCE = 
jsr rO, poke 


ARGUMENTS - 

INPUTS - $3 
buffer pointers, 
I/O queue entries 

OUTPUTS - 


sets bits 12 and 13 on I/O queue entries where I/O operation 
is initiated, 
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ID U8-5  bufaloc 


FUNCTION =- | 

bufaloc scans the I/O buffers for block structured dev- 
ices, looking for an active buffer (bits 9,...15 of the 1st 
word in the I/O queue entry for the buffer are set) which 
has already been assigned to the block number and device 
currently under consideration, or for a free buffer (bits 
9,...15 not set) which has been previously assigned to this 
device and block number. If there is no such buffer, the 
vacant buffer with the highest core address is assigned. If 
no free buffer is found, bufaloc calls idle . Eventual- 
ly, a buffer is located. The routine poke which actually 
performs the I/O operations scans the bufp area of core 
from the highest to the lowest address. Thus the priority 
of an I/O queue entry is established by where a pointer to 
the I/O queue entry appears in bufp. 


The, newly assigned buffer I/O queue entry pointer is placed 
in bufp thus making it the lowest priority. I/O operation 
in the queue. The other entries in bufp are moved into 
higher addresses to accomodate the newly assigned buffers 
I/O. queue entry pointer at location bufp. 


Once the buffer has been assigned the device number is put 
into the low half of word 1 of the corresponding 1/0 queue 
entry and the block number is put into word 2 of the 1/0 
queue entry. 


CALLING SEQUENCE = 
jsr r0, bufaloc 


ARGUMENTS = 

INPUTS — 
cdev, ri (block e bufp*2*n-2, (bufp*2*n-2), 
(bufp*2*n-2) *2:n2z1,.., snbuf 

OUTPUTS - 


r5 (pointer to buffer assigned), bufp,... ,bufp+12, (bufp), 
(bufp)+2,ps 
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ID U8-3 dskrd 


FUNCTION - . | 
dskrd acquires an I/O buffer, puts in the proper I/O queue 
entries (via bufaloc) then reads a block (number specified 
in r1) into the acquired buffer. If the device is busy at 
the time dskrd is called, dskrd calls idle. Once the I/O 
operation is completed r5 is set to point to the first data 
word in the buffer. 


CALLING SEQUENCE = 
jer rO, dskrd 


ARGUMENTS - 
INPUTS - 


OUTPUTS - 
r5 — pointer to first word in data block; (r5) ; ps 
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ID US-3 dskwr fo} 
q obe! ! 
FUNCTION = | i 
dskwr writes a bl out on disk, via ppoke. The only 


thing dskwr does is get bit 15 in the first word of the I/O 
queue entry pointed to by bufp . wslot which must have 
been called previously has supplied all the information 
required in the I/O queue entry. 


CALLING SEQUENCE - 
jsr rO, dskwr 


ARGUMENTS - 
INPUTS - 


OUTPUTS - 
(bufp) 
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ID U8-3 error 10 
FUNCTION = See "error routine 


CALLING SEQUENCE - 


ARGUMENTS = 


INPUTS - 


OUTPUTS - 


Issue D Date 3/17/72 ID IMO. 1-1 


Section H.8 Page 12 


UNIX IMPLEMENTATION 


ID UB-3 preread 


FUNCTION = 


preread" is called by "bread" to read in a disk block on 
device cdev . The block number is in rl. preread gets a 
free I/O buffer via bufaloc . It sets bit 10 of the first 
word of the I/O buffer and then reads the specified block 
into the I/O buffer via poke . If the I/O buffer already 
contains, the specified block bit 10 is not set and the call 
to poke is skipped. The processor status is then cleared. 


CALLING SEQUENCE - 


jsr rO, preread 


ARGUMENTS - 


INPUTS - 


ri - block number to read 
r5 - points to first word of I/O buffer 


OUTPUTS - 


specified block into an I/O buffer 
ps = 0 
r5 - points to first word of the I/O buffer 
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ID U8-1 rtap 


FUNCTION - 
ap” is the read routine for dec tape. The device number 


is (i-number/2)-4. The i-number is in ri upon entry. 
"bread" is called to read the proper block or blocks. 


CALLING SEQUENCE - 
from jump table in readi 


ARGUMENTS - 


INPUTS - 
ri - is the i-number of the special file 


OUTPUTS - 


cdev is the device number 
see outputs for “bread”. 
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ID U8-6 tape 


FUNCTION -. a z 

tape handles the dec tape interrupts. setisp is first 
called to save registers and the tlockp. The state of the 
dectape (testate) i.e., reading, writing, idle, etc. is put 
in r3. trapt is then called to check for data transmis- 
sion errors. If none occur control passes to the appropri- 
ate dec tape routine depending on what the stat is. Control 
is passed by putting r3 in the pc. If an error occurs a 
jump to taper is made. 


CALLING SEQUENCE - 
interrupt vector 


ARGUMENTS - 


INPUTS - 
testate - the state of the dec tape (read, wri^e, etc.) 


OUTPUTS - g ge 
control passes to appropriate dec tape routine 
pc — set to address of above routine 
r3 - is used to hold the address of above routine 
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ID UB-8 trapt 
FUNCTION - 


trapt" is part of the drum, disk, or dec tape interrupt 
handler. The ready bit of the device control register is 
checked. If the ready bit is not set the device is still 
active so a return through "retisp' is made. It then Checks 
to see if a stray interrupt has occured. If not, "trapt 
checks to see if an error in the data transmission has oc- 
cured. If so, the return is skipped. If not, the return is 


not skipped. The return is via a jmp. 


CALLING SEQUENCE =< 
jsr rO, trapt; dv; buf; act 
br normal 
br error 


ARGUMENTS - 
dv - device control status register (for dec tape it is 
the command register) 
buf - contains address of disk buffer being read into 
or written 
act -. tested against the bits in "active" to see if the 
device was busy 


INPUTS - 
active - contains bits that tell which devices are busy 


OUTPUTS - 
ri - points to the disk buffer 
r2 - points to the device control and statusvregister or 
command register depending on the argument. 
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ID U8-2 tst deve 


FUNCTION - z 
tstdevc checks to see whether a permanent error has oc- 
cured on special file I/O. (It only works for tape, 
however.) If there is an error, the error is cleared and 
the user is notified. 


CALLING SEQUENCE - 
jsr rO, tstdevc 


ARGUMENTS - 


INPUTS - 
cdev - the device in question 
(r1)+deverr - the device's in question error indicator 


OUTPUTS - 
ri = cdev s the device number 
If no error, nothing else happens 
If error, (r1) + deverr gets cleared and user notified 
via error 10. 
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ID U8-3 wslot 


FUNCTION = | : E 
wslot calls  bufaloc and obtains as a result, a pointer 
to the I/Q queue of an I/O buffer for a block structured 
device. “bufaloc” has inserted into thig I/O queue the dev- 
ice number and block number which wslot passes from its 


caller to bufaloc”. 


It then checks the first word of the I/O queue entry. If 
bits 10 and/or 13 (read bit, waiting to read bit-sec H.8, Po 
5) are set, wslot calls idle. 1 


When "idle" returns, or if bits 10 and/or 13 are not set, 

wslot” sets bits 9 and 15 of the first word of the I/O 
queue entry (write bit, inhibit bit), sets the processor 
priority to zero, and sets up a pointer to the first data 
word in the I/O buffer associated with the I/O queue. 


CALLING SEQUENCE - 
jsr rO, wslot 


ARGUMENTS - 


INPUTS - x: - 
See inputs for bufaloc - H.8 p. 1 


OUTPUTS - 1 
(bufp) - bits 9 and 15 are set, the remainder of the word 
is left unchanged 
ps - 0 o 
r5 - points to first data word in I/O buffer 


See outputs for "bufaloc" — H.8 Po lo Note that outputs given 
above take precedence over outputs from bufaloc 
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ID U9-6 revch - receive character 


FUNCTION -= | : 
"rcvch" uses "getc" to read a character from the tty's read 
section of the clist. If it is empty, the process is put to 
Bleep. When the process is awakened, rcvch again tries to 
Obtain a character from clist. 


CALLING SEQUENCE - 
jar rO, rcvch 


INPUTS - 
r2 - contains 8xtty no. 
mcsr + 8xttyn - carrier detect and clear data term bits 
See inputs for "gete" and “sleep” . 


OUTPUTS ~ 


ps - set processor status to_5 
See outputs for “sleep” and "getc" 
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ID U9-6 revt - read tty 


FUNCTION -. 
rcv& places tty characters in the user buffer area. If 
the raw flag in the tty area is set a character is ob- 
tained from the tty’s input area of clist. If the flag is 
not set, canon is used to process a line of tty characters 
and place them in the users buffer area. 


CALLING SEQUENCE - 
jmp revt 


INPUTS - 
ri - contains 2xttyno. 
rcsrt8xttyno - carrier detect and clear data term bits 
tty+8xttyno+6 - pointer to tty buffer 
tty+8xttyno+t4 - raw data flag _ 
See inputs for canon , passc , getc and rcvch 


OUTPUTS - 
ps - set processor priority to 5 5 
See Canon , passc , getc , rcvch and 
sleep outputs. 
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ID U9-3 starxmt 


FUNCTION - 


” 


starxmt does the following: 


to checks to see if the output character count for, the tty 
in clist is less than 10. If it is, "starmxt" uses "wakeup 
to wakeup the process identified in the "wlist entry for 
the tty output channel. 


20 Checks to see if the toutt entry for the tty output is 
equal to zero. If it is not, control is passed back to the 
calling routine. |: 


3. Checks to see if the ready bit in the tty's tscr regis- 
ter is set. If it is not, control is passed back to calling 
routine. : 


4. Checks 3rd byte of tty's "tty area (contains character 
left over after lf.) for a null character, If the byte con- 
tains a non null entry, the entry is used as the next char- 
acter to be output. If the entry is nul, the next character 
to be output is obtained from the clist via getc. 


5. Adds 200 to ASC11 code of character to be output if 
digit 2 (far left digit) of entry in partab" table for 
character is a "2" > 


6.' Checks tty's rcsr buffer to determine if carrier is 
present. If it is not, the character is "dropped" and a new 
character is obtained by returning to the beginning of the 
subroutine. If the carrier is present a check is made to 
determine if the character tg be output is "nt". If it isa 
check is made to see if the "tab to space" flag (bit 4 of 
5th byte in tty area) is set. If it is the character to be 
output is changed to a space (ASC11 40). 


Ze Places character to be output in tty’s *"tcbr" buffer. 
“etarxmt” then does one of the following dependent on the 

gharacter to be output (digits 0 and 1 of the characters 
partab entry are used as offsets into jump table). 


Ao For ASC11 codes 40-176, increments column pointer 
which is in byte 2 of tty area. 


be For ASC11 codes 0-7, 16-37 and 177, does nothing. 
c. For ASC11 O 10 (bs), decrements column pointer. 


d. For ASC11 012 (1£), checks for setting of cr flag 
(bit 4 of 4th byte in AA E If it is set ASC11 
015 (cr) is placed in b 3 of "tty area (character 
left over after line feed tenet then determines 
value for the tty's output entry in the tout table. 
This valye js dependent on whether 1£” ís to be output 
or both 1f and cr. 
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e. For ASC11 011 (ht) does sgme „fooling around with 
column count and 3rd byte of tty area (character left 
over after lf) dependent on yalue of tab to space 
flag in Sth byte of tty area. It then determines 
value for the tty’s output entry in the tout table. 


f. For ASC11 013 (vt), determines value for the tty’s 
output entry in tout table. 


ge For ASC11 015 (cr), determines value for the tty's 
output entry in tout table and sets column pointer = 0. 


CALLING SEQUENCE - 
jsr rO, starxmt 


INPUTS - 

(sp) - contains 8xtty number 
tty+3+8xttynumber - contains offset in cc, cf, and cl lists for tty 
co+(tty+3+Bxttynumber)+1 - contains character count for tty 

output in clist 

tty+1+8xttynumber - contains column pointer for tty 
tty+2+8xttynumber -— contains character left over after 1f 

for tty 

tty+4+8xttynumber — contains flags for tty 


See outputs for "getc". 


rcsrt8xttynumber - contains carrier present flag for tty 
tcsr+8xttynumber — contains ready flag for tty 


OUTPUTS - "EE A 
See inputs to getc 
co+(tty+3+8xttynumber ) 
tty+1+8xttynumber see inputs above 
tty+2+8xttynumber 
tcbr+8xttynumber — contains character to be output on tty 
toutt+3+ttynumber - contains tout entry for tty 
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ID U9- xmtt 


FUNCTION -. S au 

xmtt" uses cpass to obtain the next character in the 
user's buffer area. If the character count for the tt 

(identified by i-nođe number of tty’s special file in stack 

is ggeater „than, 50, the process is put to sleep. If not, 
xmtt uses putc ,to determine if there is an entry avail; 
able in '"freelist portion of clist . If there is, putc 

places the character there and assigns the location to the 
tty, portion, of clist ., If there is no location available 
in "freelist portion of clist , the process „is put to 
sleep. If there is a vacant location, starxmt is used to 
attempt to output the character on the tty. Upon return 
from starxmt the next character is obtained from the 
user's buffer area. If the buffer is eppty, „control is 
passed back to the calling, routine via cpass . When the 
process is awakened by awake , it trys again to find a 
location available in freelist and a character count for the 
tty output less than 50 so it can output characters. 


CALLING SEQUENCE ~ 
jmp xmtt 


INPUTS - ye = 
See inputs for cpass +. = 
(sp) - contains i-number of tty’s special file 
ri - contains character to be placed in clist uponvreturn 
from cpass 


OUTPUTS = 


See inputs for "starxmt' and “pute” 
processor priority set to 5 
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